[R] Matrix anders indelen

[jdh009]

Mijn vraag
Ik ben bezig om data om te zetten naar een dataframe dat ik makkelijk kan gebruiken om er statistische analyses op uit te voeren. Als input gebruik een dataframe dat ik heb gecreëerd met een special fotoanalyse programma. Deze is helaas niet perfect waardoor ik een functie heb geschreven om het dataframe goed te ordenen. Juiste types/classes, filteren van overbodige informatie en het toevoegen van de settings die ik haal uit de naam van het bestand. Hieruit komt het volgende (fictieve) resultaat:

Date	filename	eigenschap	waarde1	waarde2	setting1	setting2	setting3
01-01-2000	001_1119IS100CV50EV0.jpg	S. & al. (2007)	1.01	2.03	100	50	0
01-01-2000	001_1119IS100CV50EV0.jpg	C. & C. (1995)	4.05	6.03	100	50	0
01-01-2000	001_1119IS50CV0EV2.jpg	S. & al. (2007)	1.05	2.03	50	0	2

Nu wil een nieuw dataframe creëren die alle data gemakkelijk kan plotten. Het uiteindelijke doel is dit:

Date	filename	alle gebruikte settings	waarde
01-01-2000	001_1119IS100CV50EV0.jpg	S. & al. (2007)_kolomnaamwaarde1_100_50_0	1.01
01-01-2000	001_1119IS100CV50EV0.jpg	S. & al. (2007)_kolomnaamwaarde2_100_50_0	2.03
01-01-2000	001_1119IS100CV50EV0.jpg	C. & C. (1995)_kolomnaamwaarde1_100_50_0	4.05
01-01-2000	001_1119IS100CV50EV0.jpg	C. & C. (1995)_kolomnaamwaarde2_100_50_0	6.03
01-01-2000	001_1119IS50CV0EV2.jpg	S. & al. (2007)_kolomnaamwaarde1_50_0_2	1.05

Relevante software en hardware die ik gebruik
RStudio met R version 3.2.5

Ik heb het eerst met split geprobeerd maar dan krijg ik het niet voor elkaar.

S:

test <- split(einstein , einstein$eigenschap)

eigenschap1 <- test[[1]]
eigenschap2 <- test[[2]]
plot(eigenschap1$Date, eigenschap1$waarde1, type = "p" )
plot(eigenschap2$Date, eigenschap2$waarde1, type = "p" )

Ik heb nu wel de verschillende eigenschappen uit elkaar maar zit nu met twee dataframes die ik daarna toch weer moet samenvoegen.

Ik heb tevens de functie melt geprobeerd:

S:

x <- melt(einstein)
x 

https://stackoverflow.com...ivoting-rows-into-columns

Dan is dit het resultaat:

[El_kingo]

Kan vast en zeker beter / makkelijker, maar dit geeft een redelijk resultaat, met als enige dat de kolomnaam van waarde 1 of 2 achteraan wordt geplakt in plaats van middenin. (Ook dat is op te lossen, maar dat kun je vast zelf wel uitzoeken...)

S:

#df bevat het originele dataframe.
#Voeg kolom toe met gecombineerde waarden
df$combined <- paste(df$eigenschap, df$setting1, df$setting2, df$setting3, sep='_')
#verwijder de originele kolommen
dfsubset <- subset(df, select=-c(eigenschap, setting1, setting2, setting3))
#Melt de dataset
dfMelted <- melt(dfsubset)
#Voeg kolomnaam toe
dfMelted$combined <- paste(dfMelted$combined, dfMelted$variable, sep="_")
#verwijder kolom met kolomnaam
dfMelted <- subset(dfMelted, select=-c(variable))

[jdh009]

El_kingo schreef op dinsdag 31 mei 2016 @ 15:34:
Kan vast en zeker beter / makkelijker, maar dit geeft een redelijk resultaat, met als enige dat de kolomnaam van waarde 1 of 2 achteraan wordt geplakt in plaats van middenin. (Ook dat is op te lossen, maar dat kun je vast zelf wel uitzoeken...)

S:

#df bevat het originele dataframe.
#Voeg kolom toe met gecombineerde waarden
df$combined <- paste(df$eigenschap, df$setting1, df$setting2, df$setting3, sep='_')
#verwijder de originele kolommen
dfsubset <- subset(df, select=-c(eigenschap, setting1, setting2, setting3))
#Melt de dataset
dfMelted <- melt(dfsubset)
#Voeg kolomnaam toe
dfMelted$combined <- paste(dfMelted$combined, dfMelted$variable, sep="_")
#verwijder kolom met kolomnaam
dfMelted <- subset(dfMelted, select=-c(variable))

Bedankt! Dat ie hem erachter plakt maakt niet uit, gezien ie dan nog steeds uniek is en ik daarna kan subsetten op de methode en er vervolgens per setting analyses op los kan laten. OM de datum en andere zaken te bewaren heb ik d=c("Date", "DOY", "picture.files", "th.hold", "settings") toegevoegd aan melt. Zie hieronder het resultaat.

S:

#df bevat het originele dataframe.
#Voeg kolom toe met gecombineerde waarden
einstein$settings <- paste(einstein$corrections, einstein$ISO, einstein$CV, einstein$EV, sep='_')
#verwijder de originele kolommen
dfsubset <- subset(einstein, select=-c(corrections, ISO, CV, EV))
#Melt de dataset
dfMelted <- melt(dfsubset, id=c("Date", "DOY", "picture.files", "th.hold", "settings"))
#Voeg kolomnaam toe
dfMelted$settings <- paste(dfMelted$settings, dfMelted$variable, sep="_")
#verwijder kolom met kolomnaam
dfMelted <- subset(dfMelted, select=-c(variable))