有条件的ggplot中轴文本的条件格式

本文介绍了有条件的ggplot中轴文本的条件格式的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 29岁程序员，3月因学历无情被辞！ 我试图根据几种研究（由X或Y表示）制作一个效果大小的森林图。数据集包含的行代表X型研究和Y型研究的总结统计，由 study ==Summary。指定。 $ （c（A，B，C，A，B，Summary，摘要）） mean lowerCI upperCI type df df $ study< - as.factor（df $ study） 我想粗体显示轴刻度标签为摘要效果大小。出于某种原因，当使用I子集时，使用 ifelse 语句不起作用。在此示例代码中，只有X类型的摘要标签以粗体显示，而两者都应以粗体显示。在我真实的，更复杂的代码中，两个摘要标签都没有加粗。 library（ggplot2） plot geom_point（color ='black'，size = 2）+ geom_errorbarh（height = .1）+ geom_point （data = subset（df，study =='Summary'），color ='black'，size = 5）+ facet_grid（type〜。，scales ='free'，space ='free'）+ 主题（axis.text.y = element_text（face = ifelse（levels（df $ study）==Summary，bold，plain））） print（plot） 看起来罪魁祸首是 scales ='free'代码，因为如果我放弃它或将其更改为 scales ='free_x'，则摘要会粗体显示两次。但是，因为我想为一个子集中的研究删除多余的行（在本例中为研究C），所以我需要包含这些代码。 是否有解决方法？ 使用 scale_y_discrete 可以在给定刻度标签的每个实例上设置所有刻面的格式。 通过将所需的标签值（包括格式代码）分配给相应的 breaks 值： ggplot（data = df，aes（y = study，x = mean，xmin = lowerCI，xmax = upperCI，shape = type）） + geom_point（color ='black'，size = 2）+ geom_errorbarh（height = .1）+ geom_point（data = subset（df，study =='Summary'）， color ='black'，size = 5）+ facet_grid（type〜。，scales ='free'，space ='free'）+ scale_y_discrete（breaks = levels（df $ study）， labels = c（levels（df $ study）[1：3]，expression（bold（Summary）））） I'm attempting to make a forest plot of effect sizes from several studies, faceted by their type (X or Y). The dataset includes rows representing the summary statistics for studies of type X and studies of type Y, designated by study=="Summary".study <- as.factor(c("A","B","C","A","B","Summary","Summary"))mean <- c(1.29,0.76,2.43,1.68,1.22,1.7,0.76)lowerCI <- c(0.84,0.50,1.58,1.1,0.8,1.11,0.50)upperCI <- c(1.95,1.16,3.67,2.54,1.85,2.56,1.16)type <- as.factor(c("X","X","X","Y","Y","X","Y"))df <- data.frame(study, mean, lowerCI, upperCI, type)df$study <- as.factor(df$study)I want to bold the axis tick labels for the summary effect sizes. For some reason, using an ifelse statement doesn't work when I subset. In this sample code, only the summary label for type X is bolded, whereas both should be bolded. In my real, more complex code, neither summary label is bolded. library(ggplot2)plot <- ggplot(data=df, aes(y=study, x=mean, xmin=lowerCI, xmax=upperCI, shape = type)) + geom_point(color = 'black', size=2)+ geom_errorbarh(height=.1)+ geom_point(data=subset(df,study=='Summary'), color='black', size=5)+ facet_grid(type~., scales= 'free', space='free')+ theme(axis.text.y= element_text(face=ifelse(levels(df$study)=="Summary","bold","plain")))print(plot)It appears that the culprit is the scales='free' code, because if I drop just that or change it to scales='free_x', summary is appropriately bolded twice. However, because I want to drop redundant rows for the studies that are in one subset but not the other (in this example, study C), I need this code to be included.Is there a workaround? 解决方案 You can format each instance of a given tick label across all facets using scale_y_discrete by assigning the desired labels value (including the formatting code) to a corresponding breaks value:ggplot(data=df, aes(y=study, x=mean, xmin=lowerCI, xmax=upperCI, shape = type)) + geom_point(color = 'black', size=2)+ geom_errorbarh(height=.1)+ geom_point(data=subset(df,study=='Summary'), color='black', size=5)+ facet_grid(type~., scales= 'free', space='free') + scale_y_discrete(breaks=levels(df$study), labels=c(levels(df$study)[1:3], expression(bold("Summary")))) 这篇关于有条件的ggplot中轴文本的条件格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！ 上岸，阿里云！