2016-02-23 29 views
0

我在重新创建一个由SurveyMonkey填充的表(例如:http://imgur.com/kt3d00g) - 左侧是问题(例如,因子X有多重要?),然后离散变量总是相同的:不全是,略有...等等。prop.table与多个变量

什么是走是在格式的数据(列编号是从在产生prop.table问题和结束?:

  Q1  Q2  Q3  Q4 
     Very  Very  Very Moderately 
    Moderately Slightly Extremely Moderately 
    Not at all  Very  Very Slightly 
    Not at all Moderately Not at all Not at all 
    Extremely Extremely Extremely Extremely 
    Slightly  Very Extremely Slightly 
+0

我不知道从哪里开始,所以我没有一个。如果您根据上面的屏幕截图和示例数据提供了任何建议,请随时提供帮助。 – GregdeLima

+0

@Shekeine你能阻止垃圾邮件发送新的问题,并有帮助吗? – mtoto

+0

@ mtoto,您可以随时举报/举报您认为不合顺序的评论。干杯。 – shekeine

回答

3

Tidy your data第一。假设你的原始数据集是一个最好的方式data.frame称为df

library(tidyr) 

df.tidy <- gather(df, question, result) 

prop.table(table(df.tidy$question, df.tidy$result)) 
#  Extremely Moderately Not at all Slightly  Very 
# Q1 0.04166667 0.04166667 0.08333333 0.04166667 0.04166667 
# Q2 0.04166667 0.04166667 0.00000000 0.04166667 0.12500000 
# Q3 0.12500000 0.00000000 0.04166667 0.00000000 0.08333333 
# Q4 0.04166667 0.08333333 0.04166667 0.08333333 0.00000000 

# Additional stuff to look at to check your understanding... 
# 
# df.tidy 
# table(df.tidy$question, df.tidy$result) 
# prop.table(table(df.tidy$question, df.tidy$result), margin = 1) 
# prop.table(table(df.tidy$question, df.tidy$result), margin = 2) 

如果甲肾上腺素ed“by-question”percentages,you will use margin = 1 in the call to prop.table() - see ?prop.table

+0

这是否类似于将数据融合在一起并使其变得可行? – GregdeLima

+0

是的,非常相似:请参阅[本博客文章](http://blog.rstudio.org/2014/07/22/introducing-tidyr/)。 – JasonAizkalns

+1

第三行也可以是'prop.table(table(df.tidy))' –