主页 / coding / 问题 / 79209345
Accepted
Karl Wolfschtagg
Asked: 2024-11-21 08:43:41 +0800 CST

ggplot 多行对数对数标签

  • 772

我有一些数据正在绘制如下：

g <- ggplot(datapile, aes(x = Re, y = CD))
g <- g + geom_line(data = datapile, linetype = "solid", size = 1)
g <- g + scale_y_continuous(trans='log10', limits = c(0.01, 400), n.breaks = 20)
g <- g + scale_x_continuous(trans='log10', limits = c(0.02, 1e7), n.breaks = 20)
g <- g + ylab(expression(Drag~Coefficient*","~C[D]))
g <- g + xlab(expression(Reynolds~Number*","~frac(rho~V~d, mu)))
g

看起来不错，但我希望轴上的数字看起来像这张图片中的那样： 球体阻力系数

有谁知道这个吗？

1 个回答

  1. Best Answer
    library(ggplot2) 
library(ggtext) # to specify superscript etc. using html

# using a trick from https://stackoverflow.com/a/23902261/6851825
# "outer binary product" multiplies all combinations of the two vectors, 
#    concatenate to get vector of breaks
brks  <-  c(c(1,2,4,6,8) %o% 10^(0:10))
brks_log <- log10(brks)
labs <- ifelse(brks_log == floor(brks_log),
               paste0("<br>10<sup>", brks_log, "</sup>"),
               paste(brks / 10^floor(brks_log)))

ggplot(mtcars, aes(wt^5, mpg^3)) +
  geom_point() +
  scale_x_log10(breaks = brks, minor_breaks = NULL,
                labels = labs, guide = "axis_logticks") +
  theme(axis.text.x = element_markdown())

    在此处输入图片描述

    • 5

相关问题