Question

我想从这个网站获得排队数据; http://festileaks.com/pinkpop-festival/pinkpop-programma-2015/，作为函数的输入。

要将数据用于我的功能，我需要它在列表中。为了实现这一目标，所有艺术家都需要在＆＃34; ＆＃34; ，这是字符串向量中的情况。一旦我将矢量折叠成一个字符串，＆＃34;艺术家＆＃34;变成艺术家（没有＆＃34;＆＃34;）。有没有办法让艺术家进入一个列表，而不是失去＆＃34; ＆＃34; ？

这是我使用的代码（Rpackage rvest）;

Pinkpop_2015 <- read_html("http://festileaks.com/pinkpop-festival/pinkpop-          programma-2015/")
Pinkpophtml <- html_nodes(Pinkpop_2015, ".g7-one_third > a")
Pinkpoplineup <- html_text(Pinkpophtml)
Pinkpoplineup <- gsub("Â", "", Pinkpoplineup)
Pinkpoplineup <- gsub("-", "", Pinkpoplineup)
Pinkpoplineup <- gsub("^ ", '', Pinkpoplineup)

Plineup_string = paste(Pinkpoplineup, collapse=" ,")

Answer 1

好的..所以根据你的新角色向量（我只拍了前三次）：

Pinkpoplineup <- "Vrijdag 12 juni\n Muse\n Elbow"

你可以尝试

Pinkpoplineup <- unlist(strsplit(Pinkpoplineup, split="\n "))

Pinkpoplineup  <- paste0('\"', Pinkpoplineup, '\"', collapse=",")

报价现已转义，您可以使用

查看结果

cat(Pinkpoplineup)

或将对象写入文件

write(Pinkpoplineup, file = "Pinkpoplineup.txt")

R如何折叠字符串的向量而不会丢失＆＃34; ＆＃34;在每个单词的开头和结尾

1 个答案: