我可以ggplot2
用测试数据重现一个工作箱线图,但不能用 R 中的 CSV 数据重现。数据在视觉上带有关于事件的单点(睡眠和清醒)
"Vars" , "Sleep", "Awake"
"Average" , 7 , 12
"Min" , 4 , 5
"Max" , 10 , 15
现实生活中关于睡眠的数据
"Vars" , "Sleep1", "Sleep2", ...
"Average" , 7 , 5
"Min" , 4 , 3
"Max" , 10 , 8
现实生活中关于 Awake 的数据
"Vars" , "Awake1", "Awake2", ...
"Average" , 12 , 14
"Min" , 10 , 7
"Max" , 15 , 17
数据集成的代码
# only single point!
dat.m <- structure(list(Vars = structure(c(1L, 3L, 2L), .Label = c("Average ",
"Max ", "Min "), class = "factor"), Sleep = c(7, 4, 10
), Awake = c(12L, 5L, 15L)), .Names = c("Vars", "Sleep", "Awake"
), class = "data.frame", row.names = c(NA, -3L))
library('ggplot2')
# works:
str(mpg)
#mpg$class
#mpg$hwy
ggplot(mpg, aes(x = class, y = hwy)) +
geom_boxplot()
# http://stackoverflow.com/a/44031194/54964
m <- t(dat.m)
dat.m <- data.frame(m[2:nrow(m),])
names(dat.m) <- m[1,]
dat.m$Vars <- rownames(m)[2:nrow(m)]
dat.m <- melt(dat.m, id.vars = "Vars")
# TODO complicates here although should not
ggplot(dat.m, aes(x = Vars, y = value, fill=variable)) + #
geom_boxplot()
图 1 中的测试数据输出和图 2 中的输出。
图 1 测试数据输出 图 2 代码输出
四分位数的假设如下:
代码
# http://stackoverflow.com/a/44043313/54964
quartiles <- data.frame(Vars = c("Q1","Q3"), Sleep = c(6,8),
Awake = c(9,13))
我想设置Q1 <- 0.25 * average
和Q3 <- 0.75 * average
。假设您有任意数量的主要字段(此处Sleep
和Awake
)。您如何请求数据(此处dat.m
)以获取每个主要字段的min
和?max
R:3.3.3
操作系统:Debian 8.7