Вопрос по R (помогите, очень нужно) |
Здравствуйте, гость ( Вход | Регистрация )
Вопрос по R (помогите, очень нужно) |
17.07.2017 - 18:18
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
Подскажите, мне нужно распарсить json file из датасета
json_file <- fromJSON(paste(readLines("9729093289.json"), collapse="")) json_file <- purrr::map_df(temp, function(x) { purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y)) }) js <- as.data.frame(json_file) json_file <- fromJSON(json_file) lapply( js[, 14], function (txt.list) { r.list <-8345231(parse(text = txt.list)) split(r.list$text, r.list$class) } ) ошибка Error in split.default(r.list$text, r.list$class) : first argument must be a vector как победить?
Прикрепленные файлы
|
|
17.07.2017 - 19:00
Сообщение
#2
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
Подскажите, мне нужно распарсить json file из датасета json_file <- fromJSON(paste(readLines("9729093289.json"), collapse="")) json_file <- purrr::map_df(temp, function(x) { purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y)) }) js <- as.data.frame(json_file) json_file <- fromJSON(json_file) lapply( js[, 14], function (txt.list) { r.list <-8345231(parse(text = txt.list)) split(r.list$text, r.list$class) } ) ошибка Error in split.default(r.list$text, r.list$class) : first argument must be a vector как победить? Ну вот прочитано в список, дальше что? Код > str(jsonlite::fromJSON("9729093289.json"))
List of 20 $ balanceCollection: NULL $ checkMap :List of 5 ..$ blocks :'data.frame': 6 obs. of 3 variables: .. ..$ comment : logi [1:6] NA NA NA NA NA NA .. ..$ items :List of 6 .. .. ..$ :'data.frame': 11 obs. of 3 variables: .. .. .. ..$ class:8322456 [1:11] "red" NA NA "red" ... .. .. .. ..$ name :8322456 [1:11] "Контрагент существует" "Статус контрагента" "Уставный капитал" "Руководитель является единственным учредителем" ... .. .. .. ..$ value:8322456 [1:11] "Меньше года" "Действует" "55 000 руб" "Да" ... .. .. ..$ :'data.frame': 5 obs. of 3 variables: .. .. .. ..$ class:8322456 [1:5] "red" "red" "red" "red" ... .. .. .. ..$ name :8322456 [1:5] "Выручка" "Чистая прибыль (убыток)" "Основные средства" "Долгосрочные инвестиции" ... .. .. .. ..$ value:8322456 [1:5] "Баланс не найден" "Баланс не найден" "Баланс не найден" "Баланс не найден" ... .. .. ..$ :'data.frame': 8 obs. of 3 variables: .. .. .. ..$ class: logi [1:8] NA NA NA NA NA NA ... .. .. .. ..$ name :8322456 [1:8] "Суды в роли ответчика" "Дела о банкротстве" "Изменения в деле о банкротстве за последний месяц" "Исполнительные производства" ... .. .. .. ..$ value:8322456 [1:8] "Нет" "Нет" "Нет" "Нет" ... .. .. ..$ :'data.frame': 7 obs. of 3 variables: .. .. .. ..$ class: logi [1:7] NA NA NA NA NA NA ... .. .. .. ..$ name :8322456 [1:7] "Проверки госорганов" "Суды в роли истца" "Выигранные или размещенные госконтракты" "Последнее изменение в ЕГРЮЛ" ... .. .. .. ..$ value:8322456 [1:7] "-" "Нет" "Нет" "14 июня 2017 ? Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионн"| __truncated__ ... .. .. ..$ :'data.frame': 7 obs. of 3 variables: .. .. .. ..$ class:8322456 [1:7] NA NA NA NA ... .. .. .. ..$ name :8322456 [1:7] "Суды в роли истца или ответчика" "Филиалы" "Представительства" "Заключено или размещено госконтрактов за год" ... .. .. .. ..$ value:8322456 [1:7] "Нет" "Нет" "Нет" "Нет" ... .. .. ..$ :'data.frame': 6 obs. of 3 variables: .. .. .. ..$ class:8322456 [1:6] "red" NA NA NA ... .. .. .. ..$ name :8322456 [1:6] "Контрагент существует" "Организационная форма" "Выручка за 2015" "Чистая прибыль (убыток)" ... .. .. .. ..$ value:8322456 [1:6] "Меньше 3 лет" NA "Баланс не найден" "Баланс не найден" ... .. ..$ subtitle:8322456 [1:6] "Проверка на фирму-однодневку" "Проверка финансового состояния за последний год" "Проверка добросовестности" "Проверка деловой активности за последний год" ... ..$ downloadButtonUrl : NULL ..$ showDownloadButton: logi FALSE ..$ showPrintButton : logi FALSE ..$ title :8322456 "Итоги проверки ООО \"ПОЛИС-ЭКСПО\"" $ courtPractice : NULL $ digest :List of 1 ..$ items:'data.frame': 5 obs. of 3 variables: .. ..$ class:8322456 [1:5] "green" "green" "green" "green" ... .. ..$ items:List of 5 .. .. ..$ : list() .. .. ..$ : list() .. .. ..$ : list() .. .. ..$ : list() .. .. ..$ : list() .. ..$ text :8322456 [1:5] "Нет дел о банкротстве" "Не участвует в судах" "Нет в реестре массовых руководителей" "Нет дисквалифицированных лиц" ... $ docRequestText :8322456 "Здравствуйте.<br /><br />В сервисе ?Главбух. Проверка контрагентов? ООО \"ПОЛИС-ЭКСПО\" определяется как компания со средним ри"| __truncated__ $ egr :List of 6 ..$ date : NULL ..$ id : NULL ..$ newRequest: NULL ..$ ogrn :8322456 "1177746570253" ..$ state :8322456 "notExists" ..$ text :8322456 "Выписки пока нет" $ egrChanges :List of 3 ..$ blocks:'data.frame': 1 obs. of 3 variables: .. ..$ alias:8322456 "done" .. ..$ items:List of 1 .. .. ..$ :'data.frame': 4 obs. of 7 variables: .. .. .. ..$ code :8322456 [1:4] "13300" "13400" "11201" "13200" .. .. .. ..$ date :8322456 [1:4] "2017-06-14T00:00:00" "2017-06-13T00:00:00" "2017-06-08T00:00:00" "2017-06-08T00:00:00" .. .. .. ..$ docs :List of 4 .. .. .. .. ..$ :8322456(0) .. .. .. .. ..$ :8322456(0) .. .. .. .. ..$ :8322456 [1:4] "Р11001 ЗАЯВЛЕНИЕ О СОЗДАНИИ ЮЛ" "ДОКУМЕНТ ОБ ОПЛАТЕ ГОСУДАРСТВЕННОЙ ПОШЛИНЫ" "УСТАВ ЮЛ" "РЕШЕНИЕ О СОЗДАНИИ ЮЛ" .. .. .. .. ..$ :8322456(0) .. .. .. ..$ grn :8322456 [1:4] "6177747376537" "6177747331778" "1177746570253" "6177747152511" .. .. .. ..$ id :8322456 [1:4] "2b3fd09d-a932-484c-8757-3cfaf6e8b54d" "dc329991-041d-4e1b-990b-55afcdf716e9" "7bbc8409-1fcd-4125-b68e-17d4ce62ba19" "1d73027c-7b77-4371-831e-d3faacc52172" .. .. .. ..$ registrant:8322456 [1:4] "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" "Межрайонная инспекция федеральной налоговой службы ? 46 по г. москве" .. .. .. ..$ type :8322456 [1:4] "Представление сведений о регистрации юридического лица в качестве страхователя в территориальном органе пенсионного фонда росси"| __truncated__ "Представление сведений о регистрации юридического лица в качестве страхователя в исполнительном органе фонда социального страхо"| __truncated__ "Создание юридического лица" "Представление сведений об учете юридического лица в налоговом органе" .. ..$ title:8322456 "Внесенные" ..$ title :8322456 "Изменения в ЕГРЮЛ" ..$ total : int 4 $ executions : NULL $ goscontracts : NULL $ info :List of 27 ..$ address :List of 4 .. ..$ alerts : list() .. ..$ dateFrom:8322456 "8 июня 2017" .. ..$ text :8322456 "119633, Москва, Боровское шоссе, 21, квартира 216" .. ..$ title :8322456 "Адрес" ..$ aoReestrHolder : NULL ..$ blockInn :List of 4 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ text :8322456 "9729093289" .. ..$ title :8322456 "ИНН" ..$ blockKpp :List of 4 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ text :8322456 "772901001" .. ..$ title :8322456 "КПП" ..$ blockOgrn :List of 4 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ text :8322456 "1177746570253" .. ..$ title :8322456 "ОГРН" ..$ capital :List of 4 .. ..$ alerts : list() .. ..$ dateFrom:8322456 "8 июня 2017" .. ..$ text :8322456 "55 000 руб" .. ..$ title :8322456 "Уставный капитал" ..$ email : NULL ..$ filials : NULL ..$ filialsAndRepresentitivesCaption : NULL ..$ formationDate :List of 4 .. ..$ alerts : list() .. ..$ dateFrom:8322456 "8 июня 2017" .. ..$ text :8322456 "8 июня 2017 ? создание юридического лица" .. ..$ title :8322456 "Существует меньше года" ..$ founders :List of 2 .. ..$ items:'data.frame': 1 obs. of 10 variables: .. .. ..$ alerts :List of 1 .. .. .. ..$ : list() .. .. ..$ dateFrom :8322456 "8 июня 2017" .. .. ..$ delegates : logi NA .. .. ..$ encumbrances : logi NA .. .. ..$ inn :8322456 "773203847708" .. .. ..$ linkedEntityButton: logi NA .. .. ..$ name :8322456 "Мянзелев Андрей Иммратович" .. .. ..$ ogrn : logi NA .. .. ..$ share :'data.frame': 1 obs. of 4 variables: .. .. .. ..$ alerts :List of 1 .. .. .. .. ..$ : list() .. .. .. ..$ dateFrom: logi NA .. .. .. ..$ text :8322456 "100%" .. .. .. ..$ title :8322456 "Доля в уставном капитале" .. .. ..$ shareSumm :8322456 "55 000 руб" .. ..$ title:8322456 "Учредители" ..$ fssRegistration :List of 4 .. ..$ alerts : list() .. ..$ dateFrom:8322456 "13 июня 2017" .. ..$ text :8322456 "772109334477211" .. ..$ title :8322456 "ФСС" ..$ inn :8322456 "9729093289" ..$ name :8322456 "ООО \"ПОЛИС-ЭКСПО\"" ..$ new_activities :List of 2 .. ..$ items:8322456 [1:8] "46.32 Торговля оптовая мясом и мясными продуктами" "46.33 Торговля оптовая молочными продуктами, яйцами и пищевыми маслами и жирами" "46.34 Торговля оптовая напитками" "46.35 Торговля оптовая табачными изделиями" ... .. ..$ title:8322456 "Дополнительные виды деятельности" ..$ new_activity :List of 4 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ text :8322456 "46.90 Торговля оптовая неспециализированная" .. ..$ title :8322456 "Основной вид деятельности 46.90" ..$ new_ceos :List of 2 .. ..$ items:'data.frame': 1 obs. of 6 variables: .. .. ..$ alerts :List of 1 .. .. .. ..$ : list() .. .. ..$ dateFrom :8322456 "8 июня 2017" .. .. ..$ fio :8322456 "Мянзелев Андрей Иммратович" .. .. ..$ inn :8322456 "773203847708" .. .. ..$ linkedEntityButton:'data.frame': 1 obs. of 3 variables: .. .. .. ..$ id :8322456 "773203847708" .. .. .. ..$ tab :8322456 "by-ceo" .. .. .. ..$ text:8322456 "Перейти к 10 связанным компаниям" .. .. ..$ post :8322456 "Генеральный директор" .. ..$ title:8322456 "Лица, действующие без доверенности" ..$ new_fullName :List of 4 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ text :8322456 "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ПОЛИС-ЭКСПО\"" .. ..$ title :8322456 "Полное наименование" ..$ ogrn :8322456 "1177746570253" ..$ pfrRegistration :List of 4 .. ..$ alerts : list() .. ..$ dateFrom:8322456 "13 июня 2017" .. ..$ text :8322456 "087816014781" .. ..$ title :8322456 "ПФР" ..$ pravopreemniki : NULL ..$ pravopreemnikiAndPravopredshestvennikiCaption: NULL ..$ predshestvenniki : NULL ..$ representitives : NULL ..$ status :List of 5 .. ..$ alerts : list() .. ..$ dateFrom: NULL .. ..$ subtext : NULL .. ..$ text :8322456 "Действующая организация" .. ..$ title : NULL ..$ upravOrg : NULL ..$ warnings : list() $ inspections : NULL $ isActive : logi TRUE $ licenses : NULL $ linkedEntities :List of 3 ..$ tabs :'data.frame': 1 obs. of 7 variables: .. ..$ alias :8322456 "by-ceo" .. ..$ count : int 10 .. ..$ filters :List of 1 .. .. ..$ : list() .. ..$ name :8322456 "Через руководителей" .. ..$ straightList : logi NA .. ..$ straightListSubtitle:8322456 "Учрежденные организации" .. ..$ subjects :List of 1 .. .. ..$ :'data.frame': 1 obs. of 9 variables: .. .. .. ..$ coCeo :'data.frame': 1 obs. of 2 variables: .. .. .. .. ..$ items:List of 1 .. .. .. .. .. ..$ :'data.frame': 5 obs. of 5 variables: .. .. .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ... .. .. .. .. .. .. ..$ label : logi [1:5] NA NA NA NA NA .. .. .. .. .. .. ..$ name :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ... .. .. .. .. .. .. ..$ ogrn :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ... .. .. .. .. ..$ total: int 5 .. .. .. ..$ coCeoSubtitle :8322456 "Руководитель 5 организаций" .. .. .. ..$ coFounded :'data.frame': 1 obs. of 2 variables: .. .. .. .. ..$ items:List of 1 .. .. .. .. .. ..$ :'data.frame': 5 obs. of 7 variables: .. .. .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA .. .. .. .. .. .. ..$ dateFrom:8322456 [1:5] "2 июня 2017" "2 июня 2017" "2 июня 2017" "22 июня 2017" ... .. .. .. .. .. .. ..$ label : logi [1:5] NA NA NA NA NA .. .. .. .. .. .. ..$ name :8322456 [1:5] "ООО \"ТРИСТАН-ГРУПП\"" "ООО \"ЭКВИЛИБРИ\"" "ООО \"ПОЛИС-ЭКСПО\"" "ООО \"РИБС-ТРЕЙД\"" ... .. .. .. .. .. .. ..$ ogrn :8322456 [1:5] "1177746548836" "1177746551762" "1177746551575" "1177746618884" ... .. .. .. .. .. .. ..$ share :8322456 [1:5] "100%" "100%" "100%" "100%" ... .. .. .. .. .. .. ..$ sum :8322456 [1:5] "90 000 руб" "70 000 руб" "55 000 руб" "80 000 руб" ... .. .. .. .. ..$ total: int 5 .. .. .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций" .. .. .. ..$ id :8322456 "773203847708" .. .. .. ..$ ipInfo : logi NA .. .. .. ..$ ipLinkSubtitle :8322456 "Индивидуальный предприниматель" .. .. .. ..$ linkCount : int 10 .. .. .. ..$ name :8322456 "МЯНЗЕЛЕВ АНДРЕЙ ИММРАТОВИЧ" ..$ title:8322456 "Связанные организации" ..$ total: int 10 $ reports :List of 3 ..$ enabled: logi TRUE ..$ reports:'data.frame': 2 obs. of 3 variables: .. ..$ href :8322456 [1:2] "/site/details/ogrn/1177746570253/reports/detailed/" "/site/details/ogrn/1177746570253/egr-xml" .. ..$ name :8322456 [1:2] "По контрагенту" "XML из ЕГРЮЛ (отладочный)" .. ..$ visible: logi [1:2] TRUE TRUE ..$ text :8322456 "Скачать отчет" $ semaphore :List of 3 ..$ class:8322456 "doc-lights_state_yellow" ..$ text :8322456 "Контрагент работает недавно, получите рекомендации его клиентов" ..$ title:8322456 "Рекомендуем проверить" $ size : NULL $ tabs :'data.frame': 9 obs. of 7 variables: ..$ active : logi [1:9] TRUE FALSE FALSE FALSE TRUE TRUE ... ..$ alias :8322456 [1:9] "main" "finance" "court-practice" "executions" ... ..$ default: logi [1:9] TRUE FALSE FALSE FALSE FALSE FALSE ... ..$ name :8322456 [1:9] "Основное" "Баланс" "Арбитраж" "Приставы" ... ..$ order : int [1:9] 1 2 3 4 5 6 7 8 9 ..$ total :8322456 [1:9] NA NA NA NA ... ..$ visible: logi [1:9] TRUE TRUE TRUE TRUE TRUE TRUE ... $ type :8322456 "org_entity" $ warnings : list() |
|
17.07.2017 - 19:26
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
p2004r, я имел ввиду перевести его в формат дата фрейма.
т.е. мне надо посмотреть какие там поля есть. |
|
17.07.2017 - 20:04
Сообщение
#4
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
т.е. мне надо посмотреть какие там поля есть. ну так вот они все поля приведены в выводе str() зачем куда то эту структуру данных еще дополнительно преобразовывать? пользоваться надо |
|
17.07.2017 - 20:17
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
нет, поймите, мне нужно так
4-ая колонка распарсилась при таком скрипте json_file <- fromJSON(json_file) lapply( js[, 4], function (txt.list) { r.list <-8345231(parse(text = txt.list)) split(r.list$text, r.list$class) } ) а вот 14-ая выдала ошибку, у меня просто не один джейсон, их много. |
|
17.07.2017 - 22:36
Сообщение
#6
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
нет, поймите, мне нужно так 4-ая колонка распарсилась при таком скрипте json_file <- fromJSON(json_file) lapply( js[, 4], function (txt.list) { r.list <-8345231(parse(text = txt.list)) split(r.list$text, r.list$class) } ) а вот 14-ая выдала ошибку, у меня просто не один джейсон, их много. Ну тогда напишите минимальный (или хотя бы просто работающий) пример, демонстрирующий ошибку. |
|
18.07.2017 - 11:37
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
p2004r, а я его написал
#грузим данные джойсон из папки setwd("datajson") getwd() library(jsonlite) js <- list.files(path = "datajson", pattern="*.json", full.names=TRUE) js <- purrr::map_df(js, function(x) { purrr::map(jsonlite::fromJSON(x), function(y) ifelse(is.null(y), NA, y)) }) #check output nrow(js) colnames(js) #transform json to data frame js <- as.data.frame(js) tmp.1 <- lapply( js1[,14], function (txt.list) { r.list <-8345231(parse(text = txt.list)) ret.val <- split(r.list$text, r.list$class) ret.val$linkedEntitiesByCeoNumList <- c(ret.val$linkedEntitiesByCeoNumList, rep(NA, 20 - length(ret.val$linkedEntitiesByCeoNumList))) # код будет работать максимум с 20 полями каждого вида ret.val$linkedEntitiesByFounderNumList <- c(ret.val$linkedEntitiesByFounderNumList, rep(NA, 20 - length(ret.val$linkedEntitiesByFounderNumList))) ret.val$linkedEntitiesChildrenNumList <- c(ret.val$linkedEntitiesChildrenNumList, rep(NA, 20 - length(ret.val$linkedEntitiesChildrenNumList))) ret.val <- do.call(c, ret.val) do.call(data.frame, c(ret.val, list(stringsAsFactors = FALSE))) } ) tmp.1 <- do.call(rbind, tmp.1) js <- cbind(js, tmp.1) Error in split.default(r.list$text, r.list$class) : first argument must be a vector 4. split.default(r.list$text, r.list$class) 3. split(r.list$text, r.list$class) 2. FUN(X[[i]], ...) 1. lapply(my.df1[, 14], function(txt.list) { r.list <-8345231(parse(text = txt.list)) ret.val <- split(r.list$text, r.list$class) ret.val$linkedEntitiesByCeoNumList <- c(ret.val$linkedEntitiesByCeoNumList, ... а если вы будете смотреть 4-ую переменную то этот же код на ура отработает Сообщение отредактировал Fedor_Petuhov - 18.07.2017 - 13:18
Прикрепленные файлы
|
|
18.07.2017 - 14:03
Сообщение
#8
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
p2004r, а я его написал теперь сравните этот код с тем, что был в первом (да и собственно всех кроме последнего) постах... |
|
18.07.2017 - 14:24
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
Так, почему то тут число вместо функции e v a l это не мой косяк, видимо при копировании произошло. Форум это функцию в число конвертирует
Сообщение отредактировал Fedor_Petuhov - 18.07.2017 - 14:25 |
|
18.07.2017 - 14:25
Сообщение
#10
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
Но в любом случае сможете помочь?
|
|
21.07.2017 - 22:21
Сообщение
#11
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
Но в любом случае сможете помочь? Зачем? Код > str(8345231(parse(text=js[,14][1])))
List of 7 $ alias :8322456 [1:2] "by-ceo" "by-founder" $ count : num [1:2] 9 44 $ filters :List of 2 ..$ : list() ..$ : list() $ name :8322456 [1:2] "Через руководителей" "Через учредителей" $ straightList : logi [1:2] NA NA $ straightListSubtitle:8322456 [1:2] "Учрежденные организации" "Учрежденные организации" $ subjects :List of 2 ..$ :List of 9 .. ..$ coCeo :List of 2 .. .. ..$ items:List of 1 .. .. .. ..$ :List of 5 .. .. .. .. ..$ balance : logi [1:3] NA NA NA .. .. .. .. ..$ dateFrom:8322456 [1:3] "9 июня 2012" "25 апреля 2012" "25 апреля 2012" .. .. .. .. ..$ label :8322456 [1:3] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" .. .. .. .. ..$ name :8322456 [1:3] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\"" .. .. .. .. ..$ ogrn :8322456 [1:3] "1127746459026" "1127746328797" "1127746328808" .. .. ..$ total: num 3 .. ..$ coCeoSubtitle :8322456 "Руководитель 3 организаций" .. ..$ coFounded :List of 2 .. .. ..$ items:List of 1 .. .. .. ..$ :List of 7 .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 [1:5] "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ... .. .. .. .. ..$ label :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" NA NA ... .. .. .. .. ..$ name :8322456 [1:5] "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ... .. .. .. .. ..$ ogrn :8322456 [1:5] "1127746459026" "1127746328797" "1127746457827" "5087746164468" ... .. .. .. .. ..$ share :8322456 [1:5] "100%" "100%" "100%" "100%" ... .. .. .. .. ..$ sum :8322456 [1:5] "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ... .. .. ..$ total: num 5 .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций" .. ..$ id :8322456 "402507024490" .. ..$ ipInfo :List of 5 .. .. ..$ balance : logi NA .. .. ..$ dateFrom:8322456 "7 декабря 2004" .. .. ..$ label :8322456 "Деятельность прекращена" .. .. ..$ name :8322456 "Епифанов Олег Николаевич" .. .. ..$ ogrn :8322456 "304402534200116" .. ..$ ipLinkSubtitle :8322456 "Индивидуальный предприниматель" .. ..$ linkCount : num 9 .. ..$ name :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ" ..$ :List of 9 .. ..$ coCeo :List of 2 .. .. ..$ items:List of 1 .. .. .. ..$ :List of 5 .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 [1:5] "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ... .. .. .. .. ..$ label :8322456 [1:5] NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ... .. .. .. .. ..$ name :8322456 [1:5] "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ... .. .. .. .. ..$ ogrn :8322456 [1:5] "1037739909305" "1027710030138" "1037700256901" "1027700291761" ... .. .. ..$ total: num 22 .. ..$ coCeoSubtitle :8322456 "Руководитель 22 организаций" .. ..$ coFounded :List of 2 .. .. ..$ items:List of 1 .. .. .. ..$ :List of 7 .. .. .. .. ..$ balance : logi [1:5] NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 [1:5] "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ... .. .. .. .. ..$ label :8322456 [1:5] "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ... .. .. .. .. ..$ name :8322456 [1:5] "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ... .. .. .. .. ..$ ogrn :8322456 [1:5] "1037700256901" "1027700291761" "1027700323892" "1057747135599" ... .. .. .. .. ..$ share : logi [1:5] NA NA NA NA NA .. .. .. .. ..$ sum :8322456 [1:5] "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ... .. .. ..$ total: num 22 .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций" .. ..$ id :8322456 "773713390842" .. ..$ ipInfo : logi NA .. ..$ ipLinkSubtitle :8322456 "Индивидуальный предприниматель" .. ..$ linkCount : num 44 .. ..$ name :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА" > str(js[,14][[1]]) 'data.frame': 2 obs. of 7 variables: $ alias :8322456 "by-ceo" "by-founder" $ count : int 9 44 $ filters :List of 2 ..$ : list() ..$ : list() $ name :8322456 "Через руководителей" "Через учредителей" $ straightList : logi NA NA $ straightListSubtitle:8322456 "Учрежденные организации" "Учрежденные организации" $ subjects :List of 2 ..$ :'data.frame': 1 obs. of 9 variables: .. ..$ coCeo :'data.frame': 1 obs. of 2 variables: .. .. ..$ items:List of 1 .. .. .. ..$ :'data.frame': 3 obs. of 5 variables: .. .. .. .. ..$ balance : logi NA NA NA .. .. .. .. ..$ dateFrom:8322456 "9 июня 2012" "25 апреля 2012" "25 апреля 2012" .. .. .. .. ..$ label :8322456 "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" .. .. .. .. ..$ name :8322456 "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"КОМПЛЕКС-М\"" .. .. .. .. ..$ ogrn :8322456 "1127746459026" "1127746328797" "1127746328808" .. .. ..$ total: int 3 .. ..$ coCeoSubtitle :8322456 "Руководитель 3 организаций" .. ..$ coFounded :'data.frame': 1 obs. of 2 variables: .. .. ..$ items:List of 1 .. .. .. ..$ :'data.frame': 5 obs. of 7 variables: .. .. .. .. ..$ balance : logi NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 "9 июня 2012" "25 апреля 2012" "9 июня 2012" "21 февраля 2013" ... .. .. .. .. ..$ label :8322456 "Деятельность прекращена" "Деятельность прекращена" NA NA ... .. .. .. .. ..$ name :8322456 "ООО \"ПАНОРАМА\"" "ООО \"ИНТЕРЛИНК\"" "ООО \"МОДУЛЬ-М\"" "ООО \"ФОРТУНА\"" ... .. .. .. .. ..$ ogrn :8322456 "1127746459026" "1127746328797" "1127746457827" "5087746164468" ... .. .. .. .. ..$ share :8322456 "100%" "100%" "100%" "100%" ... .. .. .. .. ..$ sum :8322456 "10 000 руб" "10 000 руб" "10 000 руб" "300 010 руб" ... .. .. ..$ total: int 5 .. ..$ coFoundedSubtitle:8322456 "Учредитель 5 организаций" .. ..$ id :8322456 "402507024490" .. ..$ ipInfo :'data.frame': 1 obs. of 5 variables: .. .. ..$ balance : logi NA .. .. ..$ dateFrom:8322456 "7 декабря 2004" .. .. ..$ label :8322456 "Деятельность прекращена" .. .. ..$ name :8322456 "Епифанов Олег Николаевич" .. .. ..$ ogrn :8322456 "304402534200116" .. ..$ ipLinkSubtitle :8322456 "Индивидуальный предприниматель" .. ..$ linkCount : int 9 .. ..$ name :8322456 "ЕПИФАНОВ ОЛЕГ НИКОЛАЕВИЧ" ..$ :'data.frame': 1 obs. of 9 variables: .. ..$ coCeo :'data.frame': 1 obs. of 2 variables: .. .. ..$ items:List of 1 .. .. .. ..$ :'data.frame': 5 obs. of 5 variables: .. .. .. .. ..$ balance : logi NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 "22 ноября 2010" "25 сентября 2003" "17 мая 2004" "7 октября 2003" ... .. .. .. .. ..$ label :8322456 NA "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ... .. .. .. .. ..$ name :8322456 "ООО \"МЕДИАПРО\"" "ООО \"МЕГАИНТЕЛ\"" "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" ... .. .. .. .. ..$ ogrn :8322456 "1037739909305" "1027710030138" "1037700256901" "1027700291761" ... .. .. ..$ total: int 22 .. ..$ coCeoSubtitle :8322456 "Руководитель 22 организаций" .. ..$ coFounded :'data.frame': 1 obs. of 2 variables: .. .. ..$ items:List of 1 .. .. .. ..$ :'data.frame': 5 obs. of 7 variables: .. .. .. .. ..$ balance : logi NA NA NA NA NA .. .. .. .. ..$ dateFrom:8322456 "17 мая 2004" "8 октября 2003" "14 января 2003" "31 мая 2005" ... .. .. .. .. ..$ label :8322456 "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" "Деятельность прекращена" ... .. .. .. .. ..$ name :8322456 "ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ \"ЭТАЛОНТЕХНОРЕСУРС\"" "ООО \"БАЗКОМПЛЕКС\"" "ООО \"БЕГУН СЕРВИС\"" "ООО \"ХАКА ГРУПП\"" ... .. .. .. .. ..$ ogrn :8322456 "1037700256901" "1027700291761" "1027700323892" "1057747135599" ... .. .. .. .. ..$ share : logi NA NA NA NA NA .. .. .. .. ..$ sum :8322456 "10 000 руб" "8 400 руб" "10 000 руб" "10 000 руб" ... .. .. ..$ total: int 22 .. ..$ coFoundedSubtitle:8322456 "Учредитель 22 организаций" .. ..$ id :8322456 "773713390842" .. ..$ ipInfo : logi NA .. ..$ ipLinkSubtitle :8322456 "Индивидуальный предприниматель" .. ..$ linkCount : int 44 .. ..$ name :8322456 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА" > |
|
31.07.2017 - 20:15
Сообщение
#12
|
|
Группа: Пользователи Сообщений: 29 Регистрация: 10.02.2017 Пользователь №: 29307 |
p2004r, а можете, пожалуйста, подсказать по этому файлу
есть id 1 и соответствующий ему номер файла json есть еще столбец id2/ Как мне сопоставить значения id1 и id2 чтобы названия jsonов упорядочились соответственно id2 я пробовал так acc=read.xlsx("путь к файлц") df.new <- acc[order(acc$id2),] но это не то, просто по возрастанию идет упорядочивание т.е. Нужно не просто упорядочить id2 по возрастанию, нужно именно сопоставить. Например найти значение 2 в id2, а затем 2 в id1 и напротив 2-ки id2 поставить название json файла, который в столбце json стоит около двойки столбца id1. Так можете подсказать? а все, функция merge мне в помощь А что касается вашего вопроса "Зачем?" Да затем, что мне никак их в data frame не перевести)
Прикрепленные файлы
|
|
6.08.2017 - 14:32
Сообщение
#13
|
|
Группа: Пользователи Сообщений: 1091 Регистрация: 26.08.2010 Пользователь №: 22699 |
А что касается вашего вопроса "Зачем?" Да затем, что мне никак их в data frame не перевести) не только лишь каждый сделает это через e v a l |
|