Question

我有以下功能来获取给定日期的一周

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

我想将以上函数应用于以下data.frame x并在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是正确使用的吗？

Answer 1

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

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

但是，每个月前你都有一个领先的空间。所以要么你需要使用格式字符串%Y- %b-%d' or remove it: x $ month＆lt; - gsub（'^'，''，x $ month）`

Answer 2

您的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)

也可以解决您的问题。

R - 在每一行中应用函数

2 个答案: