选择每年都有数据的变量的所有值

Question

说我有一些数据，其中包含2个数字变量，范围从0到1（it1，it2），一个名称变量，具有该数字变量所属的主题的名称，然后是每个度量的日期，范围从年份2014年至2017年。现在，我要做的是创建一个数据集，该数据集仅包含对我的度量的每一年都具有价值的人的度量，然后在将来也许指定我只希望对数据范围从2015年至2017年。有人对使用哪种程序包或代码可以解决我的问题有任何暗示吗？预先感谢。

date <- c("2015-11-26", "2015-12-30","2016-11-13", "2014-09-22", "2014-01-13", "2014-07-26", "2016-11-26", "2016-04-04", "2017-04-09", "2017-02-23", "2015-03-22")
names <- c("Max", "Allen", "Allen", "Bob", "Max", "Sarah", "Max", "Sarah", "Max", "Sarah", "Sarah")
it1 <- c(0.6, 0.3, 0.1, 0.2, 0.3, 0.8, 0.8, 0.5, 0.5, 0.3, 0.7)
it2 <- c(0.5, 0.8, 0.1, 0.4, 0.4, 0.4, 0.5, 0.8, 0.6, 0.5, 0.4)

date <- as.Date(date, format = "%Y-%m-%d")

myframe <- data.frame(date, names, it1, it2)

所需的输出：

date <- c("2015-11-26", "2014-01-13", "2014-07-26", "2016-11-26", "2016-04-04", "2017-04-09", "2017-02-23", "2015-03-22")
names <- c("Max", "Max", "Sarah", "Max", "Sarah", "Max", "Sarah", "Sarah")
it1 <- c(0.6, 0.3, 0.8, 0.8, 0.5, 0.5, 0.3, 0.7)
it2 <- c(0.5, 0.4, 0.4, 0.5, 0.8, 0.6, 0.5, 0.4)

date <- as.Date(date, format = "%Y-%m-%d")

myframe <- data.frame(date, names, it1, it2)

Answer 1

library(lubridate)
myframe[with(data = myframe[year(myframe$date) >= 2014 & year(myframe$date) <= 2017,],
             expr = ave(year(date), names, FUN = function(x)
                 all(year(date) %in% x))) == 1,]
#         date names it1 it2
#1  2015-11-26   Max 0.6 0.5
#5  2014-01-13   Max 0.3 0.4
#6  2014-07-26 Sarah 0.8 0.4
#7  2016-11-26   Max 0.8 0.5
#8  2016-04-04 Sarah 0.5 0.8
#9  2017-04-09   Max 0.5 0.6
#10 2017-02-23 Sarah 0.3 0.5
#11 2015-03-22 Sarah 0.7 0.4

Answer 2

创建一个年份与名称的表，并为所有年份中的那些名称选择那些行。不使用任何软件包。

tab <- table(as.POSIXlt(myframe$date)$year + 1900, myframe$names)
subset(myframe, names %in% colnames(tab)[colSums(sign(tab)) == nrow(tab)])

给予：

         date names it1 it2
1  2015-11-26   Max 0.6 0.5
5  2014-01-13   Max 0.3 0.4
6  2014-07-26 Sarah 0.8 0.4
7  2016-11-26   Max 0.8 0.5
8  2016-04-04 Sarah 0.5 0.8
9  2017-04-09   Max 0.5 0.6
10 2017-02-23 Sarah 0.3 0.5
11 2015-03-22 Sarah 0.7 0.4