R 将日期列从字符转换为日期得到的结果是NAS

data2<-structure(list(Type = c("Spend", "Orders", "Revenue", "Impressions", 
"Clicks"), `45292...3` = c("28553.05", "492", "35221.050000000003", 
"4977289", "20570"), `45293...4` = c("30068.25", "478", "30472.83", 
"5405811", "24283"), `45294...5` = c("27220.44", "442", "26138.42", 
"4692552", "20689"), `45295...6` = c("26637.33", "400", "22904.21", 
"4079760", "17514")), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame"))


date_columns <- colnames(data2)[2:ncol(data2)] |> 
  as.numeric() |> 
  as.Date(origin = "1900-01-01") |> 
  as.character()

colnames(data2) <- c(colnames(data2)[1],  date_columns) 

colnames(data2)[2:ncol(data2)] <- 
  sub("\\.\\.", "", colnames(data2)[2:ncol(data2)]) |> 
  as.numeric() |> 
  as.Date(origin = "1900-01-01") |> 
  as.character()

# [1] "2024-01-03" "2024-01-04" "2024-01-05" "2024-01-06"

R相关问答推荐

给定R中另一行中的值，如何插补缺失值

如何使用R Shiny中的条件面板仅隐藏和显示用户输入，同时仍允许运行基础计算？

如何在编辑列时更新可编辑数据表，并使用该表在Shiny中执行连续计算

根据多个条件增加y轴高度以适应geom_text标签

Rplotly中的Sankey Diagram：意外连接&

制作等距离的线串副本

如何调整曲线图中的y轴标签？

plotly hover文本/工具提示在shiny 中不起作用

基于R中的间隔扩展数据集行

如何平滑或忽略R中变量的微小变化？

将摘要图添加到facet_WRAP gglot的末尾

数值型数据与字符混合时如何进行绑定

如何从嵌套数据中自动创建命名对象？在R中

使用ggplot2绘制具有边缘分布的坡度图

如何合并不同列表中的数据文件，包括基于名称的部分匹配，而不是一对一等价

Data.table：：Shift type=允许扩展数据(&Q；LAG&Q；)

条形图中的条形图没有try 赋予它们的 colored颜色

使用显式二元谓词子集化sfc对象时出错

通过分析特定列中的字符串在数据框中创建新的行和列

R data.设置函数&；连接中的列值而不使用for循环的表方法？