查找入住率

Question

我正在查看一个包含公司的数据集，以及几周的价格。如果值为空白/空，则表示房屋已预订，因此没有可用价格。

我有这段代码正在运行，但如果可能的话，我想一次处理所有公司和几周。然后我希望它成为数据的一部分。

sum(D1$Company=='dc' & D1$`Price week 24`== " ") / sum(D1$Company=='dc' & D1$`Price week 24`!="-10")

我将预订房屋的一家公司的总和（没有价格因此为空白/空）除以总数。没有值 -10..

我的数据可能看起来像这样（抱歉，视力不好，但我无法粘贴屏幕截图）。我还有几个星期和几家公司。 我可以看到一个名为“Occupancy week 24”的新列，其中包含第 1 行中公司的值。

编辑：数据

# dput(DF1)
structure(list(Company = 1:6, Price_week_24 = structure(c(1L, 
1L, 1L, 1L, 1L, 1L), .Label = "ns", class = "factor"), Price_week_25 = c(1639L, 
860L, NA, NA, 399L, 645L), Price_week_26 = c(NA, 860L, NA, NA, 
399L, NA), Price_week_27 = c(NA, 1010L, 1010L, 699L, 399L, 1010L
), Price_week_28 = c(NA, 1399L, NA, 1129L, 640L, 1399L)), class = "data.frame", row.names = c(NA, 
-6L))

df$occupancy_rate 0, na.rm = TRUE)/length(x)) 解决许多问题，但不是全部。我希望为每家公司提供一个价值，而不是所有公司的总和。

我期待得到一些帮助。 谢谢。

最好的问候

Answer 1

以下是创建数据以共享示例的方式。我已经包含了一个使用base 的示例解决方案：

#Create a reprex
df <- read.table(text =
"1 ns     1639            ' '             ' '             ' '
2 ns      860             860             1010            1399
3 ns      ' '             ' '             1010            ' '
4 ns      ' '             ' '             699             1129
5 ns      399             399             399             640
6 ns      645             ' '             1010            1399")

names(df) <- c("rows", "Company", paste0("Price_week_", 24:27) )

# to share the data
dput(df)

# Using base R
df$occupancy_rate <- apply(df[,2:6], 1,function(x) sum(x>0, na.rm = TRUE)/length(x))