如何向数据集添加单引号？

Question

测试数据集

structure(list(numero_certificado = c("1234", "5678"
), sitio_defuncion = c("HOSPITAL/CLINICA", "HOSPITAL/CLINICA"
), tipo_defuncion = c("NO FETAL", "NO FETAL"), fecha_defuncion = structure(c(1635861000, 
1635874800), tzone = "", class = c("POSIXct", "POSIXt")), tipo_documento_fallecido = c("REGISTRO CIVIL", 
"CEDULA DE CIUDADANIA"), documento_fallecido = c("1111", 
"2222")), row.names = c(NA, -2L), class = c("tbl_df", "tbl", 
"data.frame"))

我希望能

1. 在整个数据集的每个元素中添加单引号(')

1. 根据索引向特定列中的所有元素添加单打引号(')，因为某些数据将是数字或日期，而不是字符串

结构(numero_certificado=c(“1234”、“‘5678’)、sitio_defuncion =c(”医院/CLINICA“、”‘医院/CLINICA’“)、tipo_defuncion =c(”无胎儿“、”无胎儿“)、fecha_defuncion =结构(c(1635861000、1635874800)、tzone =”、class =c“(”POSIXct“、”POSIXt“)、tipo_documento_fallecido =c(‘REGISTRO’、‘’CEDULA DE CIUDADANIA‘)，"data.frame"))，documento_fallecido = c("'1111'"，“‘2222’”)，row.names = c(NA，-2L)，class = c("tbl_df"，"tbl“)

Answer 1

我们可以通过循环sQuote使用across列(everything() -如果所有列都需要更改，或者对于选定的列使用select_helpers之一，即如果需要删除数据的fecha_defuncion，前缀为-)。

library(dplyr)
df1 <- df1 %>% 
     mutate(across(-fecha_defuncion, sQuote, FALSE))

-output

df1
# A tibble: 2 × 6
  numero_certificado sitio_defuncion    tipo_defuncion fecha_defuncion     tipo_documento_fallecido documento_fallecido
  <chr>              <chr>              <chr>          <dttm>              <chr>                    <chr>              
1 '1234'             'HOSPITAL/CLINICA' 'NO FETAL'     2021-11-02 08:50:00 'REGISTRO CIVIL'         '1111'             
2 '5678'             'HOSPITAL/CLINICA' 'NO FETAL'     2021-11-02 12:40:00 'CEDULA DE CIUDADANIA'   '2222'       

此外，正如注释中提到的@KonradRudolph，如果sQuote取决于区域设置，另一个选项是glue、paste或sprintf。

df1 <- df1 %>%
      mutate(across(-fecha_defuncion,  ~sprintf("'%s'", as.character(.))))