Версия для печати темы
Форум врачей-аспирантов _ Медицинская статистика _ Вопрос по R (помогите, очень нужно)
Автор: Fedor_Petuhov 17.07.2017 - 18:18
Подскажите, мне нужно распарсить 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
как победить?
Автор: p2004r 17.07.2017 - 19:00
Цитата(Fedor_Petuhov @ 17.07.2017 - 18:18)
Подскажите, мне нужно распарсить 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()
Автор: Fedor_Petuhov 17.07.2017 - 19:26
p2004r, я имел ввиду перевести его в формат дата фрейма.
т.е. мне надо посмотреть какие там поля есть.
Автор: p2004r 17.07.2017 - 20:04
Цитата(Fedor_Petuhov @ 17.07.2017 - 19:26)
т.е. мне надо посмотреть какие там поля есть.
ну так вот они все поля приведены в выводе str()
зачем куда то эту структуру данных еще дополнительно преобразовывать? пользоваться надо
Автор: Fedor_Petuhov 17.07.2017 - 20:17
нет, поймите, мне нужно так
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-ая выдала ошибку, у меня просто не один джейсон, их много.
Автор: p2004r 17.07.2017 - 22:36
Цитата(Fedor_Petuhov @ 17.07.2017 - 20:17)
нет, поймите, мне нужно так
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-ая выдала ошибку, у меня просто не один джейсон, их много.
Ну тогда напишите минимальный (или хотя бы
просто работающий) пример, демонстрирующий ошибку.
Автор: Fedor_Petuhov 18.07.2017 - 11:37
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-ую переменную то этот же код на ура отработает
Автор: p2004r 18.07.2017 - 14:03
Цитата(Fedor_Petuhov @ 18.07.2017 - 11:37)
p2004r, а я его написал
теперь сравните этот код с тем, что был в первом (да и собственно всех кроме последнего) постах...
Автор: Fedor_Petuhov 18.07.2017 - 14:24
Так, почему то тут число вместо функции e v a l это не мой косяк, видимо при копировании произошло. Форум это функцию в число конвертирует
Автор: Fedor_Petuhov 18.07.2017 - 14:25
Но в любом случае сможете помочь?
Автор: p2004r 21.07.2017 - 22:21
Цитата(Fedor_Petuhov @ 18.07.2017 - 14:25)
Но в любом случае сможете помочь?
Зачем?
Код
> 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 "ГРЕКОВА ЕЛЕНА ЕВГЕНЬЕВНА"
>
Автор: Fedor_Petuhov 31.07.2017 - 20:15
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 не перевести)
Автор: p2004r 6.08.2017 - 14:32
Цитата(Fedor_Petuhov @ 31.07.2017 - 20:15)
А что касается вашего вопроса "Зачем?"
Да затем, что мне никак их в data frame не перевести)
не только лишь каждый сделает это через e v a l
Форум Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)