Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 为字符添加双引号_R - Fatal编程技术网

R 为字符添加双引号

R 为字符添加双引号,r,R,有没有办法给字符添加双引号 df <- data.frame(a = c("A","B"), b = c("C","D")) paste0(df$a,"=",df$b,collapse = ",") [1] "A=C,B=D" 根据您到底想做什么,您可以使用: 粘贴0(df$a,“=”,df$b,“”,collapse=“,”) [1] A=\'C\',B=\'D\' 使用cat打印输出时 >cat(粘贴0(df$a,“=”,df$b,“”,collapse=“,”) A=“C”,B=

有没有办法给字符添加双引号

df <- data.frame(a = c("A","B"), b = c("C","D"))
paste0(df$a,"=",df$b,collapse = ",")
[1] "A=C,B=D"

根据您到底想做什么,您可以使用:

粘贴0(df$a,“=”,df$b,“”,collapse=“,”) [1] A=\'C\',B=\'D\' 使用
cat
打印输出时

>cat(粘贴0(df$a,“=”,df$b,“”,collapse=“,”)
A=“C”,B=“D”

胶水
可能非常有用:

library(tidyverse)
df %>% 
  mutate(str = glue::glue('{a}="{b}"')) %>% 
  pull(str) %>% 
  str_flatten(collapse = ",") %>% 
  cat()
结果:

A=“C”,B=“D”

另一个
toString(sprintf('%s=%s',df$A,dQuote(df$B))
library(tidyverse)
df %>% 
  mutate(str = glue::glue('{a}="{b}"')) %>% 
  pull(str) %>% 
  str_flatten(collapse = ",") %>% 
  cat()