मैं डेटा हैपाइवट टेबल `dplyr` या` का उपयोग कर नीचे की तरह सेट किया
wc_3 <- worldcup %>%
select(Time, Passes, Tackles, Saves) %>%
summarize(Time = mean(Time),
Passes = mean(Passes),
Tackles = mean(Tackles),
Saves = mean(Saves))
और आउटपुट:
> head(worldcup)
Team Position Time Shots Passes Tackles Saves
Abdoun Algeria Midfielder 16 0 6 0 0
Abe Japan Midfielder 351 0 101 14 0
Abidal France Defender 180 0 91 6 0
Abou Diaby France Midfielder 270 1 111 5 0
Aboubakar Cameroon Forward 46 2 16 0 0
Abreu Uruguay Forward 72 0 15 0 0
तो फिर वहाँ कुछ चर का एक कोड गिनती मतलब है है:
:> wc_3
Time Passes Tackles Saves
1 208.8639 84.52101 4.191597 0.6672269
तब मैं नीचे की तरह एक उत्पादन करने की आवश्यकता
var mean
Time 208.8638655
Passes 84.5210084
Tackles 4.1915966
Saves 0.6672269
मैं इस तरह करने की कोशिश की:
wc_3 <- worldcup %>%
select(Time, Passes, Tackles, Saves) %>%
summarize(Time = mean(Time),
Passes = mean(Passes),
Tackles = mean(Tackles),
Saves = mean(Saves)) %>%
gather(var, mean, Time:Saves, factor_key=TRUE)
उत्पादन में ही है। मेरा सवाल: क्या वही आउटपुट अलग-अलग तरीके से करने के लिए वैसे भी है?
यह मेरा कोर्स है लेकिन मेरा सबमिशन अस्वीकार कर दिया गया था। मुझे नहीं पता क्यों, लेकिन मैंने इसके बारे में पूछा था।
कृपया
हम्म tibbles के लिए एक पक्षांतरित समारोह अच्छा हो सकता है (वहाँ एक है?), जैसे 'wc_3%>% टी%>% as.data.frame%>% Tibble :: rownames_to_column()%>% सेटनाम (सी ("var", "mean")) '। – lukeA