将数据框从字符转换为数字

Question

我有以下带有一列的数据框，当前存储为字符列：

在此处输入图像描述

我正在尝试分隔文本，但似乎 separate() function 不适用于字符列。

我试图使用以下代码隐藏这些列。 他们都不适合我。

第一次尝试：

Overview_10_K_filings_df$Overview_10_K_filings <- as.numeric(as.character(Overview_10_K_filings_df$Overview_10_K_filings))

这会产生错误消息：“警告消息：强制引入的 NA”

第二次尝试：

Overview_10_K_filings_df[1] <- apply(Overview_10_K_filings_df[1], 2,
                                     function(x) as.numeric(as.character(x))

你能帮我改造一下专栏吗？ 还是有其他方法可以分离内容？ 谢谢！

Answer 1

通过从字符串中创建一个DF并在 3 个步骤中使用str_replace 。 也许不是实现目标的最简洁的方法。 出于提供信息的原因，这三个步骤保留在DF中。

library(tidyverse)
  
t <- "QTR4/20151229_10-K_edgar_data_1230058_0000892626-15-000373.txt"
t |> as.data.frame() |> 
mutate(new1=stringr::str_replace(t, '/', ' | ')) |> 
  mutate(new2 = stringr::str_replace_all(new1, '_', ' | ')) |> 
  mutate(new3 = stringr::str_replace(new2, '.txt', ' | txt')) |> 
  select(new3) |> as.character()
#> [1] "QTR4 | 20151229 | 10-K | edgar | data | 1230058 | 0000892626-15-000373 | txt"

更好：或者你这样做：

b <- "_|/|\\."
stringr::str_replace_all(t, b, ' | ')
# [1] "QTR4 | 20151229 | 10-K | edgar | data | 1230058 | 0000892626-15-000373 | txt"