R 分面箱线图

R 分面箱线图,r,ggplot2,R,Ggplot2,我有一个方框图,左边有一个组(Baseline.RT),右边有一个组(TBPM.RT)。我想将Baseline.RT重命名为1-back,将TBPM.RT重命名为TBPM。我还希望每组有一个不同的方形框架。我还想尝试使用黑白选项来填充中性、正和负的值 我尝试了几种选择,但没有得到我想要的结果。下面是我的代码。欢迎任何帮助 数据帧: data.frame( stringsAsFactors=FALSE, 参与者=c(1,2,3,4,5,6), 性别=c(“m”、“m”、“m”、“f”、“f”、“m

我有一个方框图,左边有一个组(Baseline.RT),右边有一个组(TBPM.RT)。我想将Baseline.RT重命名为1-back,将TBPM.RT重命名为TBPM。我还希望每组有一个不同的方形框架。我还想尝试使用黑白选项来填充中性、正和负的值

我尝试了几种选择,但没有得到我想要的结果。下面是我的代码。欢迎任何帮助

数据帧:

data.frame(
stringsAsFactors=FALSE,
参与者=c(1,2,3,4,5,6),
性别=c(“m”、“m”、“m”、“f”、“f”、“m”),
年龄=c(29,21,29,22,25,31),
应力=c(14,26,11,19,15,15),
Dass21.total=c(6,43,4,10,12,8),
Dass21Ansie=c(0,12,1,3,2,2),
Dass.Depre=c(1,11,0,1,3,0),
Dass.应力=c(5,20,3,6,7,6),
价=c(0,1,2,0,1,2),
基线.RT=c(1.17657473346937,
0.656485061072056,0.617504973518475,0.552112912223171,
0.587283706967395,0.569011248952529),
TBPM.RT=c(1.1612649995575,
0.682658424923267,0.643632301167193,0.589782671563839,
0.705303832011063,0.691478784144668),
TotalClockChecks=c(44,97,44,93,32,90),
TotalChecks5060=c(13,22,17,23,10,27),
TotalClockResets=c(18,20,19,19,18,19),
正确。重置=c(16、16、18、18、12、19),
在0.55.Resets=c(0,2,0,1,0,0)之前,
在0.65.Resets=c(2,2,1,0,6,0)之后,
平均重置时间=c(63.0026438647087,
58.9040712799639,60.9928466685597,60.4603108544334,
65.859630879724,60.5522703813385),
准确度。基线=c(0.987179487179487,
0.991489361702128,0.97907949790795,0.987234042553191,1,
0.987234042553191),
精度.TBPM=c(0.968619246861925,
0.972746331236897,0.989626556016598,0.972515856236786,
0.974736842105263,0.991786447638604),
rau.基线=c(112.453264487601,
114.413187265486,109.508971532343,112.475825131896,
122.999999959683,112.475825131896),
rau.TBPM=c(106.447535249234,
107.58519024216,113.516946707831,107.519541719961,
108.163803190644,114.564811317506)
)
绘图:

my44%>%
选择(参与者、配价、基线.RT、TBPM.RT)%>%#选择兴趣变量
聚集(任务,RT,-价,-参与者)%>%
ggplot(,aes(因子(价),RT))+#plot
geom_boxplot()+镶嵌面_包裹(~Task)+
比例x离散(名称=元素x空白(),标签=c(“0”=“中性”,“1”=“正”,“2”=“负”))+
刻度\填充\离散(name=“价”,
中断=c(“0”、“1”、“2”),
标签=c(“中性”、“阳性”,
"负数")
所得结果如下:


由(v0.3.0)于2020-09-02创建,听起来您正在寻找类似的内容(尽管您的问题的输入数据不会生成绘图中显示的值,而且您似乎在某处设置了默认主题)

您的填充颜色可以通过
scale\u fill\u manual
选择,但如果您希望不同的框具有不同的颜色,则需要将
配价
变量映射到填充比例

如果您希望在每个方面周围有一个框架,
theme\u bw
默认情况下会这样做,或者您可以使用
theme(panel.border=element\u rect(color=“black”)

要重新命名facet,我通常只需将facet变量重新命名为输入中所需的名称,但这里我展示了一种使用
facet\u wrap
中的
labeller
参数的替代方法

my44%>%
选择(参与者、配价、基线.RT、TBPM.RT)%>%#选择兴趣变量
聚集(任务,RT,-价,-参与者)%>%
ggplot(、aes(因子(价)、RT))+
geom_箱线图(aes(填充=因子(价)))+
面_包装(~任务,
labeller=function(x)data.frame(Task=c(“1-back”,“TBPM”))+
比例x离散(名称=元素x空白(),
标签=c(“0”表示“中性”,“1”表示“正”,“2”表示“负”)+
比例填充手册(name=“Valence”,
中断=c(“0”、“1”、“2”),
标签=c(“中性”、“阳性”、“阴性”),
值=c(“灰色50”、“灰色75”、“灰色95”))+
主题_bw()+
主题(legend.position=“无”,
strip.background=元素_blank())

听起来你在寻找类似的东西(尽管你的问题的输入数据不会产生在绘图中显示的值,而且你似乎在某个地方设置了默认主题)

您的填充颜色可以通过
scale\u fill\u manual
选择,但如果您希望不同的框具有不同的颜色,则需要将
配价
变量映射到填充比例

如果您希望在每个方面周围有一个框架,
theme\u bw
默认情况下会这样做,或者您可以使用
theme(panel.border=element\u rect(color=“black”)

要重新命名facet,我通常只需将facet变量重新命名为输入中所需的名称,但这里我展示了一种使用
facet\u wrap
中的
labeller
参数的替代方法

my44%>%
选择(参与者、配价、基线.RT、TBPM.RT)%>%#选择兴趣变量
聚集(任务,RT,-价,-参与者)%>%
ggplot(、aes(因子(价)、RT))+
geom_箱线图(aes(填充=因子(价)))+
面_包装(~任务,
labeller=function(x)data.frame(Task=c(“1-back”,“TBPM”))+
比例x离散(名称=元素x空白(),
标签=c(“0”表示“中性”,“1”表示“正”,“2”表示“负”)+
比例填充手册(name=“Valence”,