R 将文本数据框转换为数字数据框会给出NA列表

这是我的代码，我想将文本的数据帧转换为数字帧：

library(reldist)

year_return[complete.cases(year_return), ]
year_returnGINI <- as.numeric(as.character(year_return[2:19]))

我该怎么办

以下是数据集的示例：

     Date         .SXQR       .SXTR    .SXNR      .SXMR      .SXAR       .SX3R       .SX6R    
[1,] "2000-01-03" " 364.9400" "223.93" "489.0400" "586.3800" " 306.5600" " 246.8100" "385.360"
[2,] "2000-01-04" " 345.0400" "218.90" "474.0500" "566.1500" " 301.1300" " 239.2400" "374.640"
[3,] "2000-01-05" " 338.2200" "215.88" "464.2000" "542.2900" " 298.2200" " 239.5500" "373.260"

这里是链接到

更新：

我想知道如何使用图书馆的基尼系数

我的代码是：

library(reldist)

year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x) 
  as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)

gini(year_return[3:19],w)

我该怎么办？

---

这很简单。不要将

as.numeric（as.character（.））

应用于数据帧，请逐个列向量应用它

year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x) 
  as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)

---

year\u return这非常简单。不要将
as.numeric（as.character（.））
应用于数据帧，请逐个列向量应用它

year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x) 
  as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)

year\u return非常感谢您的帮助！我确实有另一个问题，你可以在我的原始帖子的更新中看到。你知道为什么吗？@Snooz3更新是另一个问题，与第一个问题有关，但完全不同。你应该把它作为一个问题单独发布，因为我相信它对其他人是有用的（这是SO的主要目的），并且有一个到这个问题的链接。如果您这样做了，请发布
dput（w）
的输出，我们可以更轻松地复制并粘贴到R会话中。非常感谢您的帮助！我确实有另一个问题，你可以在我的原始帖子的更新中看到。你知道为什么吗？@Snooz3更新是另一个问题，与第一个问题有关，但完全不同。你应该把它作为一个问题单独发布，因为我相信它对其他人是有用的（这是SO的主要目的），并且有一个到这个问题的链接。如果您这样做了，请发布
dput（w）
的输出，我们可以更轻松地复制并粘贴到R会话中。欢迎使用堆栈溢出！如果您可以发布单独的问题，而不是将您的问题合并为一个问题，这是首选。这样，它可以帮助人们回答你的问题，也可以帮助其他人寻找至少一个你的问题。谢谢欢迎来到堆栈溢出！如果您可以发布单独的问题，而不是将您的问题合并为一个问题，这是首选。这样，它可以帮助人们回答你的问题，也可以帮助其他人寻找至少一个你的问题。谢谢
year_return <- read.csv("year_return.csv")
year_return[3:19] <- lapply(year_return[3:19], function(x) 
  as.numeric(as.character(x)))
year_return[[2]] <- as.Date(year_return[[2]])
str(year_return)