我有一个按类别分隔的箱形图,我需要绘制所有箱形图中第一个四分位数,中位数,第三个四分位数的值,但我不能。我有以下代码:
a <- runif(10,1,100)
b <-c("A","A","A","A","A","B","B","B","B","B")
t <- cbind(a,b)
bp<- boxplot(a~b)
我可以通过bp$stats命令获得的值,但我不能在
我正在尝试创建一个箱线图,并手动将p值添加到箱图之间的每次比较中: #I have the following boxplot
ToothGrowth%>%ggplot(aes(x=dose, y=len, fill=supp))+
geom_boxplot()
#I would like to do a wilcoxon sum rank test on the data and label each comparison between OJ and VC
stat.test <- ToothGrowth%>%group_b
我想做一个wilcox测试,并为箱线图中的每个组(而不是组之间)添加一个显著性条形图。例如,比较时间2、6和14的子组("0","1")。到目前为止,我得到的是:
WS = time
DV = effect
分组计数=分组("0“或"1")
p <- ggplot(data, aes(x=WS, y=DV, group=count))
p <- p + geom_boxplot(aes(fill=factor(count), group=interaction(WS, count)))
p <- p + stat_sum
我在一个数据帧(即数据)中有20个变量,我希望从这些变量中获得直方图、箱线图和其他一些图形(为了清楚起见,我提供了一个箱线图的例子)。我想按变量'Group‘对这些结果进行排序。我试着用一个循环来解决这个问题,这样每个变量(列)都会被转换成一个图。(我知道Stackoverflow程序员不喜欢循环,我欢迎所有其他解决方案)。在y轴上,我想打印20个变量中每个变量的名称。
for (i in 1:20) {
graph <- ggplot(data, aes(Group,data[,i]))
print(graph + geom_boxplot() + lab
我正在研究别人的工作,但理解这行代码的目的时遇到了问题:
ggplot(data, aes(x = Group, y = Value)) + geom_bar(stat="identity", position = "dodge", lwd = 1, aes(fill = Group))
以下是数据的一个示例
Group Value
1 A 20
2 B 74
3 B 50
...
n A 24
我认为使用代码的目的是绘制一个条形图,总结A组和B组的值。但是,我认为A组和B组的每个元素都绘
我试着为每组绘制2条实线,有2种不同的颜色,但也要在这些线周围添加相同颜色的虚线,然后添加一个图例。由于某些原因,我在使用“虚线”或“点线”时遇到了问题,似乎我在虚线上绘制了两次。我也没有得到正确的图例,我得到的错误是Adding another scale for 'colour', which will replace the existing scale。
你能帮我找出我做错了什么吗?下面是一个示例数据集和我尝试过的内容:
x <- c(10, 20, 50, 10, 20, 50)
mean = c(52.4, 98.2, 97.9, 74.1, 98.1, 97
我试图用多条线来绘制一幅线图(按一个分类的值因素分组),根据我过去做过的事情,以及我在网上可以找到的,最简单的方法就是把分类值赋给这个组的美学--但这对我来说不管用--我只得到一条线图上的线条。我百分之百肯定我正在做一些非常愚蠢的事情,但我不能为我的生活解决它。(预先谢谢:)
#dummy data for example
test <- data.frame(x = sample(seq(as.Date('2015/01/01'), as.Date('2020/01/01'), by="day"), 20),