如何創建一個函數來計算並從表中檢索一個值？

我有一張關於駕駛違規和違規價值信息的表格。我有兩列值（違規）和一年（違規）。對於每一年的違規，我有幾個值。從2000年到2014年，這些年都有所增加如何創建一個函數來計算並從表中檢索一個值？

我需要一個函數，可以檢索每個「預定」年的違規總數。也就是說，當用戶輸入年份時，只能獲得當年的信息。到目前爲止，我只能管理在同一時間

我想這讓所有年份的信息：

total_year <- function(x=infractions$year){ 
    aggregate(infractions$value ~ infractions$year_deb, FUN=sum, na.rm = TRUE) 
}

然後我鍵入

total_year(2012)

，我得到違規的每一個表但我只想要2012年的總數。

我的表如下所示：

 value year 
375714 1,00 2011 
375715 0,00 2012 
375716 0,00 2013 
375717 0,00 2014 
375738 12,00 2011 
375739 7,00 2012 
375740 2,00 2013 
375741 4,00 2014 
375762 23,00 2011 
375763 14,00 2012 
375764 18,00 2013 
375765 7,00 2014 
375786 6,00 2011 
375787 4,00 2012 
375788 2,00 2013 
375789 5,00 2014 
375810 0,00 2011 
375811 0,00 2012 
375812 0,00 2013

來源

2017-02-08 jessica l

您是否希望當年的違規行爲總數？或者那一年的違規列表？另外，如果你可以給出一個可重複的例子（見[這裏]），你將有更多的運氣獲得答案（並快速獲得答案）（http://stackoverflow.com/questions/5963269/how-to-make-a-重複性很好的例子）），讓其他人與 – Craig

一起工作是的，這一年的違規總數。即：全年的違規總數（2012年）謝謝。我會嘗試重現的例子 –

值年 375714 1.00 2011 375715 0,00 2012 375716 0,00 2013 375717 0,00 2014 375738 12,00 2011 375739 7,00 2012 375740 2， 00 2013 375741 4,00 2014 375762 23.00 2011 375763 14,00 2012 375764 18,00 2013 375765 7,00 2014 375786 6.00 2011 375787 4,00 2012 375788 2.00 2013 375789 5,00 2014 375810 0,00 2011 375811 0,00 2012 375812 0,00 2013 –

下面是使用dplyr

數據

set.seed(123) 

df <- data.frame(value = sample(c("speeding", "parking", "dui"), 45, replace = T), 
       year = rep(2000:2014, 3))

功能

library(dplyr) 

total_year <- function(data, x) { 
    data %>% 
    filter(year == x) %>% 
    group_by(year) %>% 
    summarize(inf = length(unique(value))) %>% 
    ungroup 
}

使用

另一種解決方案10

total_year(df, 2014) 
#  year inf 
#  <int> <int> 
# 1 2014  1

來源

2017-02-08 19:21:35 Craig

酷炫的包裝！感謝您的解決方案:) –

很高興它是有益的。如果您找到有用的答案，請務必將其放在旁邊。 – Craig

如何創建一個函數來計算並從表中檢索一個值？

回答

相關問題