R:从不规则向量创建数据帧
我正在寻找从网页上截取的不规则信息向量,并将其转换为数据帧 例如,给定一个如下所示的向量:R:从不规则向量创建数据帧,r,R,我正在寻找从网页上截取的不规则信息向量,并将其转换为数据帧 例如,给定一个如下所示的向量: vec <- c("Bank of America", "6%", "JP Morgan", "5%", "Bank of China", "UBS", "7%") df <- tibble(bank.name = c("Bank of America", "JP Morgan","Bank of China","UBS"), interest.rate = c(6%, 5%, NA, 7%
vec <- c("Bank of America", "6%", "JP Morgan", "5%", "Bank of China", "UBS", "7%")
df <- tibble(bank.name = c("Bank of America", "JP Morgan","Bank of China","UBS"), interest.rate = c(6%, 5%, NA, 7%))
test <- c("Bank of America", "6%", "JP Morgan", "5%", "Bank of China", "UBS", "7%")
df <- tibble(bank = test, rate = lead(test,1))
df %>%
filter(str_detect(bank, "%")== FALSE) %>% #Includes only rows that are banks
mutate(rate = ifelse(str_detect(rate, "%") == TRUE, rate, NA)) # converts non-rate values to NA
vec试试这个
library(data.table) # using data.table because the syntax is nicer
test <- c("Bank of America", "6%", "JP Morgan", "5%", "Bank of China", "UBS", "7%")
dt <- data.table(bank.name = test, interest.rate = shift(test, n = 1, type = "lead"))
dt <- dt[! grepl("%", bank.name)]
dt[! grepl("%", interest.rate), interest.rate := NA]
dt
# bank.name interest.rate
# 1: Bank of America 6%
# 2: JP Morgan 5%
# 3: Bank of China NA
# 4: UBS 7%
library(data.table)#使用data.table,因为语法更好
测试你能指出函数“tibble”来自哪个包吗?@guscht它来自tidyverse
或tibble
@guscht Tibbles是Hadley Wickham的tidyverse中的一个对象,你可以在这里阅读Wickham的解释: