R语言解析披头士的出生日期小练习

R语言解析披头士的出生日期小练习

练习11-1

解析披头士的出生日期，并使用“AbbreviatedWeekday DAYOFMONTH Abbreviated-MonthNameTwoDigitYear”的形式（例如，Wed 09 Oct 40）把它们打印出来，他们的出生日期列于下表：

披头士乐队	成员出生日期
Ringo Starr	1940-07-07
John Lennon	1940-10-09
Paul McCartney	1942-06-18
George Harrison	1943-02-25

首先将披头士成员的生日以数据框的形式展现出来

data_frame <- data.frame(Band_members = c("Ringo Starr","John Lennon","Paul McCartney","George Harrison"),
                         Band_member_birthday = c("1940-07-07","1940-10-09","1942-06-18","1943-02-25"))
data_frame

这里我使用的是for循环
在数据框中的数据都是character的格式，需要转换成Date的形式
data_frame[[2]][i]是数据框的索引，代表的是该数据框第2列的第i个数据

for(i in c(1:4)){
    if(i <= 4){
        birthday <- as.Date(data_frame[[2]][i])
        new_birthday <- strftime(birthday,"%a %d %b %y")
        new_birthday <- as.character(new_birthday)
        data_frame[[2]][i] <- new_birthday
    } 
}
print(data_frame)