R glue包创建字符串模板

生成数据报告是数据分析过程的关键环节。R 内置paste() 函数可以实现，本文介绍glue包实现字符串模板，可以更加直观生成消息。

示例1

首先我们看一个简单示例，统计数据集行和列数，以及空值数量：

library(glue)
df <- mtcars
df[df$mpg<16, 2] <- NA
df
msg <- 'Dataframe Info: \n\n This dataset has {nrow(df)} rows and {ncol(df)} columns. \n There {ifelse(sum(is.na(df))>0, "are", "is")} {sum(is.na(df))} Missing Value'

glue(msg)

# Dataframe Info: 

# This dataset has 32 rows and 11 columns. 
# There are 10 Missing Value


name <- "Fred"
age <- 24
anniversary <- as.Date("1991-10-12")
glue('My name is {name},',
  ' my age next year is {age + 1},',
  ' my anniversary is {format(anniversary, "%A, %B %d, %Y")}.')

# My name is Fred, my age next year is 25, my anniversary is 星期六, 十月 12, 1991.

上面使用glue函数，参数为字符串表达式。其中变量后表达式使用{}进行包裹，整个过程比较直观。但要注意使用单引号包裹字符串msg内容，因为msg里面已经使用双引号。

示例2

我们在看一个示例，循环展示数据框中的内容。使用glue_data函数。

library(magrittr)
head(mtcars) %>% glue_data("* {rownames(.)} has {cyl} cylinders and {hp}")

# 执行结果

# * Mazda RX4 has 6 cylinders and 110
# * Mazda RX4 Wag has 6 cylinders and 110
# * Datsun 710 has 4 cylinders and 93
# * Hornet 4 Drive has 6 cylinders and 110
# * Hornet Sportabout has 8 cylinders and 175
# * Valiant has 6 cylinders and 105

上面使用数据管道，传输数据给glue_data，rownames(.) 依次获取前面传过来的记录。

示例3

下面示例展示换行格式，glue会按照我们给定的方式进行排版输出。

glue("
    A formatted string
    Can have multiple lines
      with additional indention preserved
    ")

# Show in New Window
# A formatted string
# Can have multiple lines
#   with additional indention preserved

# 在输出行前后增加空行
glue("

  leading or trailing newlines can be added explicitly

  ")
# 
# leading or trailing newlines can be added explicitly
# 

# 使用 \\ 表示下面一行继续展示，不会产生新的换行
glue("
    A formatted string \\
    can also be on a \\
    single line
    ")
# A formatted string can also be on a single line

# 双花括号会原样输出变量引用形式，不会解释变量。
name <- "Fred"
glue("My name is {name}, not {{name}}.")
# My name is Fred, not {name}.

上面示例还展示了其他一些字面符号的输出方式。

总结

本文通过示例展示glue包提供的一些函数，用于实现字符串模板方式输出消息。还有其他功能强大的函数，如glue_sql可以安全拼接SQL，读者需要时可查阅官方文档。