小编Mar*_*tin的帖子

我正试图在箭头上看到一个标签,上面写着:

|| X || cos(alpha)

但我似乎无法使其发挥作用.

我可以||x||毫无问题地编写没有问题的cos(alpha),但我不知道如何将它们写成一个语句.

有任何想法吗？

这是我的代码:

library(plotrix)
library(shape)

xlim <- c(-2, 6)
ylim <- c(-2, 6)
plot(0, type = "n", xlim = xlim, ylim = ylim,asp=1)


Arrows(1,1,5,1)
boxed.labels(3,1,labels="||x|| cos (a)",border=NA,xpad=1,ypad=1)


Arrows(1,2,5,2)
boxed.labels(3,2,labels=expression(cos (alpha)),border=NA,xpad=1,ypad=1)

有没有办法从pairwise.t.test 依赖数据中获取t值和df ？

例:

 data<-c(2,3,2,2,5,2,4,2,4,3,4,2)
 time<-c(1,1,1,1,2,2,2,2,3,3,3,3)

 pairwise.t.test(data, time,p.adjust.method= "bonf",paired=TRUE)

给我:

  Pairwise comparisons using paired t tests 

 data:  data and time 

   1    2   
 2 1.00 -   
 3 0.55 1.00

 P value adjustment method: bonferroni 

我想为t值和df设置相同的格式.

谢谢你的帮助!

我想用facet_wrap绘制一个ggplot,它不会显示实际的表百分比,而是显示每组中给定答案的百分比.我必须这样做,因为我想表明,哪个答案选择最多,每个组最重要.这些组的大小不同.

示例数据:

group <- c(rep(c("Group1"), times = 10),rep(c("Group2"), times = 6),rep(c("Group3"), times = 4))
choice <- c(rep(c("a","b","c"),length.out = 10), "a","a","a","a","b","c","b","b","b","c")
df <- data.frame(cbind(group,choice))

如果我不能使用整体prop.t,那将是很好的,但prop.c要在我的情节中显示,因为显示重要,例如,第2组的66.67%更喜欢选择a.

library(gmodels)
CrossTable(choice, group, prop.chisq=FALSE, prop.t = TRUE, prop.c = TRUE, prop.r = FALSE, format = "SPSS")

这是为了情节:

library(ggplot2)
g <- ggplot(df, aes_string(x="group", fill="group")) +
            geom_bar(aes(y = (..count..)/sum(..count..)))+
            ylab("percent")
g + facet_wrap(~ choice)

现在第一个酒吧节目:20%,20%,0%,但应该显示40%,66.67%和0%(组中每个人的百分比,谁给出了这个答案).

对于第二个栏应显示:30%,16.667%和75%.

第三栏:30%,16.667%和25%

谢谢您的帮助.