如何在ggtitle中使用rmarkdown内联代码？

Question

我试图使用内联代码使我的样本大小出现在我的绘图标题中，这样我就可以避免每次使用这个代码块时忘记更新(N = 128)的错误。目前R不识别我试图在代码的最后一行中使用的内联代码"(N = r nrow(df))“。

library(Rmisc) # for summarySE function

# create descriptive stats for bar plot
    df <- subset(mtcars, select = c(mpg, cyl))
    dfc <- summarySE(df, measurevar = "mpg", groupvars = c("cyl"))

# bar plot
ggplot(dfc, aes(x=cyl, y=mpg)) + # insert variables
      geom_bar(aes(fill=cyl), # essential for bar coloring
               position=position_dodge(),
               stat="identity", colour="black", size=0) + 
      geom_errorbar(aes(ymin= mpg - se, ymax= mpg + se), 
                    size=.4, width=.1, position=position_dodge(.9)) + 
      ggtitle("(N = `r nrow(df)`)")  ### THIS IS THE LINE I WANT TO WORK ###

提前感谢您的帮助。

Answer 1

您可以通过paste函数这样做，如下所示：

n_value <- paste("( N = ", nrow(dat), ")")
ggtitle(paste0(n_value))

Answer 2

下面的代码将在进入thousands+的事件中为您提供逗号格式的数字。

sprintf("( N = %s )", scales::comma(nrow(dat)))

sprintf("( N = %s )", scales::comma(nrow(ggplot2movies::movies)))
## [1] "( N = 58,788 )"