大佬教程收集整理的这篇文章主要介绍了带有长组标签的李克特量表调查结果的箱线图,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
对于要求受访者回答的每个陈述,我的数据有 5 个观察值,然后是受访者 ID 的变量 1-5。
我设法使用基础 R 做一个 Boxplot
,但我的标签太长(5-8 个字),我似乎无法让它与 par 函数一起工作。
q4 <- par(mar=c(8,2,1,1))
q4 <- Boxplot(np$ab_overused_nationally4,np$ab_overused_work4,np$ab_amr_problem4,np$ab_amr_problem_work4,np$ab_better_use4,ylab="likert Scale",las=2,names=question4,main="How much do you agree with the following statements",col=(c("gold","darkgreen")))
所以我想我会尝试ggplot
,因为它似乎有更多的灵活性,但我不知道如何只用一个轴来做到这一点。我还看到了一些非常整齐的堆叠条来可视化数据,但同样,我什至不知道从哪里开始。
编辑以添加 df:
# A tibble: 19 x 5
ab_overused_nationally4 ab_overused_work4 ab_amr_problem4 ab_amr_problem_work4 ab_better_use4
<dbl> <dbl> <dbl> <dbl> <dbl>
1 4 2 4 4 5
2 4 4 4 3 4
3 5 3 4 2 5
4 3 3 4 2 5
5 5 3 5 4 5
6 5 4 5 5 5
7 4 1 5 2 5
8 5 1 4 2 5
9 4 2 4 3 5
你需要这样的东西吗?
library(tidyr)
library(ggplot2)
np %>%
pivot_longer(cols = everything()) %>%
ggplot(aes(name,value)) + geom_boxplot()
,
您可以在同一步骤中使用 15
和 strwrap
'em 以及换行符 paste
以大约 \n
的宽度包裹字符串。
txt <- lapply(question4,function(X) paste(strwrap(x,width=15),collapse="\n"))
然后设置 xaxt="n"
并使用 axis
和 @H_447_5@mtext 构建您自己的。
op <- par(mai=c(1.2,1,1)) ## set par and store defaults
boxplot(np,xaxt="n",main="foo",col=c(3,7))
axis(1,at=axTicks(1),labels=falSE) ## produces ticks
mtext(txt,4,cex=.7) ## produces labels
par(op) ## restore par defaults
为了灵活性,我建议坚持使用基本图形。无需理会ggplot2
。
数据:
np <- structure(list(ab_overused_nationally4 = c(4L,4L,5L,3L,4L),ab_overused_work4 = c(2L,1L,2L),ab_amr_problem4 = c(4L,ab_amr_problem_work4 = c(4L,2L,3L),ab_better_use4 = c(5L,5L
)),class = "data.frame",row.names = c("1","2","3","4","5","6","7","8","9"))
question4 <- rep("Lorem ipsum dolor sit amet,consetetur sadipscing elitr?",5)
以上是大佬教程为你收集整理的带有长组标签的李克特量表调查结果的箱线图全部内容,希望文章能够帮你解决带有长组标签的李克特量表调查结果的箱线图所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。