Question

我有一个以以下格式存储为字符串的日期值：（Day_of_week Month Day，Year）。我想删除星期几，因此最终格式为：（Month Day，Year）

mydata <- data.frame(Date=c("Tuesday, September 19, 2017",
                            "Friday, April 20,2018"),
                     Date_Exp=c("September 19, 2017",
                                "April 20,2018"))

Answer 1

正如@Wiktor Stribi.ew所说..您的任务很明确，但无法达到目的。但这可以解决您的问题：

format(as.Date(mydata$Date,format = "%A, %B %d, %Y"), format="%B %d %Y")
[1] "September 19 2017" "April 20 2018"

Answer 2

使用gsub，我们可以删除日期开头的任意数量的字符，后跟“，”和空格。

mydata$Date <- gsub("^[a-zA-z]+, ", "",mydata$Date)

Answer 3

您可以将日期保留为字符串，然后使用正则表达式删除星期几：

vec <- c("Tuesday, September 19, 2017", 
         "Friday, April 20,2018")

trimws(sub("^.*?,","",vec))

#[1] "September 19, 2017" "April 20,2018"

如何从列中删除零件文本？

3 个答案: