我有一个非常具体的问题。我的数据框如下所示：
我的问题是日期和日期列。目前是这样的：
Year-month-1 - 然后在下一列中显示日期。
我希望它看起来像一个普通的日期列，比如年月日。所以我想从第二列中取出天数，并用第一列中的 01 替换它们。
知道怎么做吗？
【问题讨论】：
paste0(substr("1992-06-01", 1, 8), substr("Day21", 4, 5))。然后通过您的 df.properties 的相应列更改其中的字符串。此外，图片不是发布数据的正确方式，dput(data) 是。
给你
library(lubridate)
library(tidyr)
library(dplyr)
df %>% unite(new_Date, Date, Day, sep = ' ') %>% mutate(new_Date = ymd(gsub("([0-9]{2} Day)", "", new_Date)))
这使用了 tidyr::unite 和 lubridate::ymd 以及 dplyr 函数。
【讨论】：
%>% 运算符。在这种情况下，该命令使用 tidyr::unite 将 Date 和 Day 列与空格分隔符组合起来，并创建一个名为 new_Date 的新列。然后我们使用gsub 应用一些正则表达式来将类似于1992-06-01 Day21 的新列转换为1992-06-21。为此，我们基本上将01 Day 部分替换为空字符串。最后使用lubridate::ymd 函数将其转换为日期。我建议花一些时间学习 dplyr
我们可以使用dplyr rear 和lubridate 包。
library(readr)
library(dplyr)
library(lubridate)
df <- df %>%
mutate(Date = ymd(paste(year(Date), month(Date), parse_number(Day), sep = '-')))
parse_number(Day) 函数从Day 列中获取数值。 year(Date) 从 Date 获取年份，month(Date) 从 Date 获取月份。
然后paste 将年-月-日与连字符组合起来作为分隔符sep = '-'。 ymd 将其转换为日期格式。 mutate(Date 将新值插入到 Date 列中。
【讨论】：
Date 列中的天数将替换 Day 列中的值。
Day 列替换为Date 列的日期。从您的数据框的图片来看，您的 Date 列只有 1 天。因此Day 将变为 1。如果您的 Date 是 '1992-06-30`，则 Day 的值为 30。