小编Eva*_* O.的帖子

如何检测字符串中的所有字母字符(> = 2个字符)是否为大写？最后,我试图过滤掉章节标题名称,即我的数据集中的行.因此,如果章节标题是"ARYA",我希望检测到,与"女王的手"相同.

这是我正在尝试但不起作用的:

library(dplyr)
library(stringr)

str_detect("THE QUEEN’S HAND", "^[[:upper:]]{2,}+$")
#> FALSE

我需要的要求:

• 字符数> = 2因为我最终使用它来过滤掉章节名称,但有时会出现一行"I"这个词,但这不是章节 - 它只是一个单词.虽然这可以在不同的点过滤
• 仅检测到字母字符或撇号.有时行是"...",我不想检测到.但是,如果我使用toupper(x) == (x)解决方案,这将与"女王的手"一样被检测到.我也试图摆脱任何带有感叹号或句号的东西,比如"停止这个!"

我正在使用spotifyr包来抓取我的数据集中特定专辑的每首歌曲的音频功能.我的问题是我的数据集包含一些不在spotify上的艺术家 - 所以他们不应该返回任何值.

我的问题是,当我找到一个不在spotify上的艺术家时,我收到了这个错误:

Error in bind_rows_(x, .id) : Argument 1 must have names

我已经尝试将函数包装在tryCatch中以获取NA有问题的行的每一列,但它似乎不起作用.

这是我的代码示例(仅供参考,您需要从spotify的网站获取API访问以运行spotifyr代码)

library(readr)
library(spotifyr)
library(dplyr)
library(purrr)

Sys.setenv(SPOTIFY_CLIENT_ID = "xxx") #xxx will be from spotify's website
Sys.setenv(SPOTIFY_CLIENT_SECRET = "xxx")
access_token <- get_spotify_access_token()

artist <- c("Eminem", "Chris Stapleton", "Brockhampton", "Big Sean, Metro Boomin")
album <- c("Revival", "From A Room: Volume 2", "SATURATION III", "Double or Nothing")
mydata <- data_frame(artist, album)

get_album_data <- function(x) {
  get_artist_audio_features(mydata$artist[x], return_closest_artist = TRUE) %>%
    filter(album_name == mydata$album[x])}

try_get_album_data <- function(x) { …

它似乎dplyr::pull()也dplyr::select()做了同样的事情.除了dplyr::pull()只选择1个变量之外还有区别吗？

我试图计算每个球员的进球数,助攻数和助攻数.我的问题是我无法理解这一点,因为我想通过(玩家名称)总结的数据列在三个变量(目标,主辅助和辅助辅助)中

这是我可重复的数据(它是来自dput(),所以为混乱道歉).

mydata <- structure(list(primary_assist = c("Dmitry Gilyazitdinov", "Evgeny Orlov", 
"Anton Burdasov", "Sergei Kalinin", "Stanislav Solovyov", "Vasily Streltsov", 
NA, "Bogdan Potekhin", "Bogdan Potekhin", "Vasily Streltsov", 
"Vasily Streltsov", "Viktor Postnikov", "Danil Kaskov", NA, NA, 
"Artemy Panarin"), secondary_assist = c("Andrei Badrutdinov", 
NA, NA, NA, "Danil Gubarev", "Nikita Manukhov", NA, "Evgeny Grigorenko", 
"Daniil Apalkov", "Ivan Boiko", NA, "Viktor Antipin", "Vitaly Sychov", 
NA, NA, "Stanislav Levin"), goal = c("Vitaly Kropachyov", "Dmitry Kozlov", 
"Stanislav Solovyov", "Kirill Polyansky", "Anton Burdasov", "Ilya Solodov", 
"Alexander Antropov", …

我正在使用rvest和read_html尝试抓取网站。刮刮之前对我有用，但现在不起作用了。使用R版本3.4.2和rvest 0.3.2

这是我的代码：

library(rvest)

read_html("http://hamilton.edu/news/story/the-medias-effect-on-womens-body-image")

我的错误是：

Error in read_connection_(x, n) : 
  Evaluation error: Failure when receiving data from the peer.

有任何想法吗？