我try 在ggploy中对x轴记号标签中的单个字母进行斜体处理.我try 了在Stackoverflow上找到的帖子中之前的所有建议,使用了多种方法

以下是try 过的不同方法:

xlabs<-c("Scrabble <br><i>N</i>=1101", # not italic, all shown in tick label
         "Dig<br>*N*=70", # not italic, all shown in tick label
         "Eat\n*N*=190",# not italic, all shown in tick label
         expression(paste("Forage\n",italic("N"),"=772")),#is italic, messes up text position
        "Move\n<i>N<i>=22",# not italic, all shown in tick label
         expression("Post-vig\n"~italic(N)~"=82")) # is italic, messes up text position

有关输出,请参见图像绘图轴

enter image description here

我只是想要一个解决方案与"N"斜体和刻度线标签格式不混乱.类似于本文中的最后一个示例:

Italic letters in generated axis tick labels

enter image description here

提前谢谢!

推荐答案

将帮助器列添加到数据中,在该列中可以将计数总数粘贴到类别标签.为了使计数以斜体显示,我使用了ggtext,即用<i>标记括起来,然后添加换行符<br>.然后将该列映射到x个AES和SET axis.text.x = ggtext::element_markdown()上.

使用一个使用ggplot2::mpg的最小可重现性示例:

library(ggplot2)
library(dplyr, warn = FALSE)

mpg |>
  add_count(class) |>
  mutate(x = paste0(class, "<br><i>n = ", n, "</i>")) |>
  ggplot(aes(x, hwy)) +
  geom_boxplot() +
  theme(
    axis.text.x = ggtext::element_markdown()
  )

R相关问答推荐

计算R中的威布尔分布的EDF

基于现有类创建类的打印方法(即,打印tibles更长时间)

使用R中的Shapetime裁剪格栅文件

将复杂的组合列表转换为数据框架

如何利用模型函数在格图中添加双曲/指数曲线

如何将移除事件分配给动态创建的按钮?

用值序列对行进行子集化,并标识序列开始的列

仅 Select 超过9行的CSV文件

解析R函数中的变量时出现的问题

将Posict转换为数字时的负时间(以秒为单位)

R-按最接近午夜的时间进行筛选

安全地测试文件是否通过R打开

在另一个包中设置断点&S R函数

R -使用矩阵reshape 列表

在R中,如何将误差条放置在堆叠的每个条上?

在gggraph中显示来自不同数据帧的单个值

我需要使用ggplot2制作堆叠条形图

如何根据其他列中的两个条件来计算数据帧中的行之间的差异?

为什么在POSIXct-times的向量上循环会改变R中的类型?

只有当我在循环的末尾放置一条print语句时,Foreach才会给出预期的输出