R 如何打印附加到长方体打印的条形打印

R 如何打印附加到长方体打印的条形打印,r,plot,bar-chart,boxplot,R,Plot,Bar Chart,Boxplot,我的一小部分数据如下所示 dt<- structure(c(79L, 54L, 37L, 41L, 42L, 121L, 134L, 169L, 23L, 19L, 22L, 19L, 25L), .Names = c("Experi_1", "Experi_2", "Experi_3", "Experi_4", "Experi_5", "Experi_6", "Experi_7", "Experi_8", "Experi_9", "Experi_10", "Experi_11",

我的一小部分数据如下所示

dt<- structure(c(79L, 54L, 37L, 41L, 42L, 121L, 134L, 169L, 23L, 19L, 
22L, 19L, 25L), .Names = c("Experi_1", "Experi_2", "Experi_3", 
"Experi_4", "Experi_5", "Experi_6", "Experi_7", "Experi_8", "Experi_9", 
"Experi_10", "Experi_11", "Experi_12", "Experi_13"))
我使用了下面的方法来添加长方体图,但它似乎没有这样做

xlim <- c(-0.5, 0.5) + range(dt)
par(mar=c(3.1, 3.1, 1.1, 2.1))
boxplot(dt, horizontal=TRUE,  outline=TRUE, ylim=xlim, frame=F, width = 10)

xlim我认为问题在于你没有分割你的窗口。使用
layout()


您忘记使用“布局”行。 以下几点应该行得通

    nf <- layout(mat = matrix(c(1,2),2,1, byrow=TRUE),  height = c(3,1))
    par(mar=c(3.1, 3.1, 1.1, 2.1))
    barplot(dt, main="Distribution", xlab="Number of each experiment")
    boxplot(dt, horizontal=TRUE,  outline=TRUE, ylim=xlim, frame=F, width = 10)

nf您能澄清一下您想在条形图中显示什么吗?你确定你不想要柱状图而不是条形图吗?@jkt谢谢你的留言。我肯定我不想要直方图。但即使使用直方图,我仍然无法将此方框图添加到其中。我试图展示我在每个实验中识别出了多少信号。所以我不需要做频率,但是values@jkt我从条形图中删除了干管,以避免misunderstanding@C8H10N4O2这有关系吗?两者都是一样的。如果我对齐一个方框图或将方框图指定给一个图,我认为两者给出了相同的想法,不是吗?如果我是,请纠正我mistaken@nik不,没有。如果我将一个长方体图指定给另一个图,则得到一个图。如果我将一个方框图与另一个方框图对齐,那么我会得到两个并排的方框图;我有两个问题,一个是如何调整x轴标签?例如,如果我只想展示Experi1、Experi7和Experi13,那么怎么做?第二个问题是,我能从这个方框图中理解什么?这是否考虑了整个数据?例如,中位数是多少?你知道吗?@nik中位数是将数据的上半部分与下半部分分开的值。箱线图考虑了整个数据,并将异常值绘制为晶须外的单独点。从
boxplot
中删除
ylim
参数以查看您的异常值。[关于x标签:请查看我对您的单独查询的答案]。@nik您的评论使我意识到,如果删除
ylim
,会更清晰。我最初理解您希望对齐轴,但事实似乎并非如此。如果您删除了ylim,则无法在一个绘图中同时使用两个绘图。@nik??事实并非如此
ylim
layout
没有影响。再试一次。上面给出了类似的答案!为了确保我接受正确的答案,我有两个问题,一个是如何调整x轴标签?例如,如果我只想展示Experi1、Experi7和Experi13,那么怎么做?第二个问题是,我能从这个方框图中理解什么?这是否考虑了整个数据?例如,中位数是多少?你知道吗?
layout(mat = matrix(c(1,2),2,1, byrow=TRUE),  height = c(3,1))
par(mar=c(3.1, 3.1, 1.1, 2.1))
barplot(dt, main="Distribution", xlab="Number of each experiment")
boxplot(dt, horizontal=TRUE,  outline=TRUE, frame=F, width = 10)
    nf <- layout(mat = matrix(c(1,2),2,1, byrow=TRUE),  height = c(3,1))
    par(mar=c(3.1, 3.1, 1.1, 2.1))
    barplot(dt, main="Distribution", xlab="Number of each experiment")
    boxplot(dt, horizontal=TRUE,  outline=TRUE, ylim=xlim, frame=F, width = 10)