Маркировка двух сводных данных в одном поле

Question

Я новый пользователь R. • Я хотел бы объединить результаты этих двух групп и при этом сохранить их ярлыки как две группы. Когда я объединяюсь, они дают фигуру, которая потеряла ярлыки. • Я также хотел бы обозначить номера 1 и 2 (для обеих групп) как "падающие" и "падающие-восходящие". соответственно и с "черным" и "серым" цветом, чтобы показать разницу легко. • Я работаю с итоговыми результатами

Вот формула, которую я использовал для создания фигуры:

d0<-matrix(c(x1,x2), ncol=2)
d1<-matrix(c(y1,y2), ncol=2)
lmts<-range(d0,d1)
par(mfrow = c(1, 2))
boxplot(d0, ylim=lmts, xlab="x")
boxplot(d1, ylim=lmts, xlab="y")
result1 <-boxplot(d0, ylim=lmts, xlab="x")
result2<- boxplot(d1, ylim=lmts, xlab="y")
mylist <- list(result1, result2)
groupbxp <- do.call(mapply, c(cbind, mylist))
bxp(groupbxp)

Answer 1

Как это?

set.seed(1)   # so example is reproduceable
# create example
x1=sample(50,100,10)
x2=sample(50,100,10)
y1=sample(50,100,10)
y2=sample(50,100,10)
d0<-data.frame(falling=x1,"falling-rising"=x2)  # note use of data.frame(...)
d1<-data.frame(falling=y1,"falling-rising"=y2)
lmts<-range(d0,d1)
par(mfrow = c(1, 2))
boxplot(d0, ylim=lmts, xlab="x", col=c("grey80","grey50"))
boxplot(d1, ylim=lmts, xlab="y", col=c("grey80","grey50"))
result1 <-boxplot(d0, ylim=lmts, xlab="x", plot=F)
result2<- boxplot(d1, ylim=lmts, xlab="y", plot=F)
mylist <- list(result1, result2)
groupbxp <- do.call(mapply, c(cbind, mylist))
par(mfrow=c(1,1))
bxp(groupbxp,fill=T,boxfill=c("grey80","grey50","grey80","grey50"))

Чтобы получить ярлыки, кроме x, y использование data.frame(...) вместо matrix(...), Чтобы получить цвета используйте boxfill=... в призыве к bxp(...), Обратите внимание, что, чтобы получить цвета в boxplot(...) аргументы разные, к сожалению.