问题描述
library(ggplot2)
library(tidyverse)
dummy_data <- structure(list(csh = structure(c(1L,1L,2L,3L,3L),.Label = c("0","1","2","3","4"),class = "factor"),method = structure(c(4L,4L,1L),.Label = c("avg_ratio","stack_learner_ratio","stack_ratio","y_bar_ratio"),mse = c(1.71440060270582,2.3039074506099,2.2045472757757,1.44682474607404,1.93635013676601,2.23555711509222,1.14505211151131,1.3985843445545,1.86464256037161,1.26212385917695,1.04872854298465,1.30606672079847,1.06559000879232,1.0111077548544,1.14771201947952,1.01244435100631,0.971703540094071,1.06385665414544)),row.names = c(1L,101L,102L,103L,201L,202L,203L,501L,502L,503L,601L,602L,603L,701L,702L,703L),class = "data.frame")
我正在尝试根据facet_wrap
的值重新标记csh
标题。我正在使用以下代码,但是它似乎没有执行我想要的操作?
dummy_data %>%
ggplot(aes(x = method,y = mse,fill = method)) +
geom_boxplot() +
facet_wrap(~csh,labeller = labeller(csh = c("0" = expression(paste(beta[0])),"1" = expression(paste(beta[1])),"2" = expression(paste(beta[2]))))) +
theme_bw() +
theme(axis.text.x=element_blank())
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)