[sokytsinolop]

#rlang #r #naukaprogramowania #datascience
Mam w R dataset, ktory w jednej kolumnie zawiera takie dane:
https://i.imgur.com/Xde3Diy.png

Chcę go spłaszczyć, co mogę zrobić w taki sposób
confessions$actions[[1]] ->
https://i.imgur.com/ne61TjV.png

Ale to spłaszczenie tylko pierwszego wiersza w datasecie confessions. W jaki sposób mogę wykonać tę operacje dla każdego wiersza i przypisać wynik do nowej kolumny w datasecie?

btw. jest jakis tag do jezyka r?

[heniek_8]

@sokytsinolop: jest #jezykr
A co to w ogóle za dane, masz to w tekście, bo na R dataset nie wygląda? Ja bym zrobił grep jeszcze przed wczytaniem do R

[sokytsinolop]

@heniek_8: dane z pliku json wyeksportowanr

[heniek_8]

@sokytsinolop: a możesz gdzieś wrzucić próbkę? Wrócę do domu to się pobawię

[sokytsinolop]

@heniek_8: pewnie, tez wrócę do domu to podeślę Ci na pw.

[sokytsinolop]

@heniek_8: Dzięki za poświęcony czas

[sokytsinolop]

@heniek_8: tutaj jsony
https://gist.github.com/cymruu/416812335e804369ebee2e37ffb8af64

tutaj caly skrypt https://github.com/cymruu/amw_stats/blob/master/scripts/amw_stats.r

Chciałbym w dataframe confessions$actions zmergowac z obiektami actions z pliku actions.json po $oid

[heniek_8]

@sokytsinolop:
widzę że zmienna "id" to jest zagnieżdżone data.frame a nie prosty wektor , ale tam jest tylko jedno pole i jakoś się to połączyło

confessions = jsonlite::fromJSON('/tmp/confessions.json')
actions = jsonlite::fromJSON('/tmp/actions.json')

dplyr::left_join(actions, confessions, by = "_id") %>% View

Czy masz jakiś przypadek gdy to nie zadziałało?

[sokytsinolop]

@heniek_8: kazdy confession ma w actions tablice id, ktore odpowiadaja id z dateframe actions. czyli chcę zrobic cos takiego merge(confessions$actions[[1]], actions, by.x = "$oid", by.y = "_id") ale dla kazdego elementu w dateframe confessions

[heniek_8]

@sokytsinolop: dobra coś namieszałem to skasowałem te wypociny :) ogólnie bym szedł w stronę spłaszczania tego pola gdzie jest data.frame w kolumnie

[sokytsinolop]

@heniek_8: jakby co to udalo sie w ten sposob

confessions$actions_full <- lapply(confessions$actions, function(x) {
 merge(x, actions, by.x = "$oid", by.y = "_id")
})

[heniek_8]

@sokytsinolop: wypróbowałem to i co? actions_full zawiera puste wartości
moim zdaniem trzeba się z tym pomęczyć tak:
w confessions, w polu actions jest data.frame 2 rekordy i ten data.frame zawiera pole w którym jest to po czym chcesz łączyć

chyba trzeba by najpierw wyciągnąć te pola z actions, przetransponować żeby id były w jednej kolumnie - co by się wiązało z tym że trzeba by zduplikować rekordy z confessions, po jednym

[sokytsinolop]

@heniek_8: u mnie działa ¯\_(ツ)_/¯

[sokytsinolop]

@heniek_8: przepisałem wszystko w pythonie z uzyciem pandasa, numpy i matplotliba i wszystkie moje problemy sie rozwiazaly :D strasznie ciezko sie polapac w tym R, mam wrazenie ze kazda biblioteka ma inny syntax

[Utylizacja]

@sokytsinolop: Też mam takie same wrażenia z używania R. Jakby ktoś wziął z Pythona list comprehension i zrobił z nich cały język.
Jak siedzisz w tym kilka lat to szybko się robi, ale jak nie znasz składni dokładnie na pamięć, to:
(1) ciężko jej się nauczyć (np. te wymiary tablicy [,,2]),
(2) nazwy funkcji są totalnie losowe (np. c to combine, a służy głównie do robienia wektorów albo apply, lapply, tapply,