stringr 数据框转字符串
library(tidyverse)
library(hablar)
library(janitor)
options(scipen=200)
tst <- read.csv("D:\\ph.csv") %>%
clean_names() %>%
distinct() %>%
str_c(sep="','") %>%
str_trim() %>%
str_replace_all("[\"]","'") %>%
str_remove_all("[\n]")
library(tidyverse)
library(hablar)
library(janitor)
options(scipen=200)
tst <- read.csv("D:\\ph.csv") %>%
clean_names() %>%
distinct() %>%
str_c(sep="','") %>%
str_trim() %>%
str_replace_all("[\"]","'") %>%
str_remove_all("[\n]")
评论
发表评论