Nefe
Merhabalar,Tezim için anket datamı düzenlemeye ve analiz etmeye başladım. R kullanıyorum fakat yeni olduğum için basit ve temel sorunlar yaşıyorum. Yardımcı olabilecek var mıdır?teşekkrüler!resim: https://eksiup.com/7c4353623235Resimdeki (beyaz kısım) tablonun mantığında bir data table'ım var. "appe
Merhabalar,
Tezim için anket datamı düzenlemeye ve analiz etmeye başladım. R kullanıyorum fakat yeni olduğum için basit ve temel sorunlar yaşıyorum. Yardımcı olabilecek var mıdır?
teşekkrüler!
resim: eksiup.com
Resimdeki (beyaz kısım) tablonun mantığında bir data table'ım var. "appealing1"daki değerler product1 için "appealing2"dakiler product2 için. ben yeşil olarak boyadığım columnları oluşturmak istiyorum.
Tezim için anket datamı düzenlemeye ve analiz etmeye başladım. R kullanıyorum fakat yeni olduğum için basit ve temel sorunlar yaşıyorum. Yardımcı olabilecek var mıdır?
teşekkrüler!
resim: eksiup.com
Resimdeki (beyaz kısım) tablonun mantığında bir data table'ım var. "appealing1"daki değerler product1 için "appealing2"dakiler product2 için. ben yeşil olarak boyadığım columnları oluşturmak istiyorum.
0
Sorabilirsiniz. Hatta buraya yazarsaniz belki baskalari aradiginda bulur, isine yarar.
0
Tam olarak ne istediginizi anladim mi emin degil ama bu haliyle reshape pakedinden "melt" fonksiyonunu kullanarak yapabilirmissiniz gibi duruyor. Ben de ornegi tekrarlamaya calisiyorum, siz bu arada "melt" fonksiyonunu google'layin isterseniz.
0
Biraz daginik bir cozum oldu ama tam istediginizi veriyor su: prntscr.com
df$interesting <- NA
df$appealing <- NA
for (cases in unique(df$case)){
for (pro in 1:length(unique(df$product))){
indx <- which(df$product==pro)
intname <- paste0("i",pro)
df$interesting[indx] <- df[indx,names(df) == intname]
apname <- paste0("a",pro)
df$appealing[indx] <- df[indx,names(df) == apname]
}
}
df$interesting <- NA
df$appealing <- NA
for (cases in unique(df$case)){
for (pro in 1:length(unique(df$product))){
indx <- which(df$product==pro)
intname <- paste0("i",pro)
df$interesting[indx] <- df[indx,names(df) == intname]
apname <- paste0("a",pro)
df$appealing[indx] <- df[indx,names(df) == apname]
}
}
0
