1

我有以下功能可以从给定日期获取星期

getWeek <- function (year, month, day) {
  date <- as.Date(paste(year, month, day, sep = "-"), "%Y-%b-%d")
  week <- format(date, "%W")
  return(week)
}

我想将上述函数应用于以下 data.framex并在x. 我尝试使用mapply，但它给了我NA.

> dput(x)
structure(list(year = c(2003L, 2010L, 2012L, 2012L, 2007L), month = structure(c(3L, 
10L, 9L, 8L, 6L), .Label = c(" Apr", " Aug", " Dec", " Feb", 
" Jan", " Jul", " Jun", " Mar", " May", " Nov", " Oct", " Sep"
), class = "factor"), day = c(4L, 3L, 25L, 26L, 18L), Humidity = structure(c(38L, 
71L, 73L, 49L, 87L), .Label = c("10", "100", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", 
"47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", 
"58", "59", "6", "60", "61", "62", "63", "64", "65", "66", "67", 
"68", "69", "7", "70", "71", "72", "73", "74", "75", "76", "77", 
"78", "79", "8", "80", "81", "82", "83", "84", "85", "86", "87", 
"88", "89", "9", "90", "91", "92", "93", "94", "96", "97", "N/A"
), class = "factor")), .Names = c("year", "month", "day", "Humidity"
), row.names = c(2605L, 80763L, 108420L, 106512L, 54342L), class = "data.frame")


>  mapply(getWeek, x$year, x$month, x$day)
[1] NA NA NA NA NA

我需要getWeek应用于每一行x吗？使用正确吗mapply？

4

2 回答 2

1

由于您的函数已经矢量化，因此您根本不需要使用 apply。相反，只需使用正确的变量调用它（一旦您修复了下面的错误，您的mapply解决方案也将起作用）：

with(x, getWeek(year, month, day))

但是，您在每个月之前都有一个前导空格。所以要么你需要使用格式字符串%Y- %b-%d' or remove it:x$month <- gsub('^ ', '', x$month)`

于 2013-05-29T15:28:56.157 回答
1

你的getWeek功能坏了。

它应该看起来像这样：

getWeek <- function (year, month, day) {
  date <- as.Date(paste(year, month, day, sep = "-"), "%Y- %b-%d")
  week <- format(date, "%W")
  return(week)
}

你需要考虑你几个月的领先空间。

当然，

x$month <- substring(x$month,2)

也可以解决您的问题。

于 2013-05-29T15:44:27.307 回答