我使用read_sav
包中的haven
函数导入SPSS文件。因此,我有列名和关联标签(标记为类)。
我使用subset
对数据框进行子集时丢失了标签。我可以使用索引data[i]
的变通方法,但这种行为是不是错误?
这是一个简单的例子。
DataForExample <- structure(list(q0001_0001 = structure(c(2, NA, 5, 4, NA), label = "être plus rapide", class = "labelled", labels = structure(c(1,
2, 3, 4, 5), .Names = c("non, pas du tout", "non, pas vraiment",
"oui, un peu", "oui, tout à fait", "je ne sais pas"))), q0001_0002 = structure(c(NA,
3, NA, 4, 2), label = "être plus fiable", class = "labelled", labels = structure(c(1,
2, 3, 4, 5), .Names = c("non, pas du tout", "non, pas vraiment",
"oui, un peu", "oui, tout à fait", "je ne sais pas")))), .Names = c("q0001_0001",
"q0001_0002"), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-5L))
View(DataForExample) # OK
Toto <- subset(DataForExample, select = q0001_0001)
View(Toto) # NOK : the labels disappeared
Toto2 <- DataForExample[1]
View(Toto2) # OK
由于
答案 0 :(得分:2)
与之前关于排序的问题相同的答案。您需要加载包,以支持类haven
的子集化操作。最好在Hmisc
之后加载它。至少有两个包含此类支持的包:expss
和library(expss)
。无需其他操作,只需library(Hmisc)
或var timezone = 'America/Los_Angeles';
var supportStartTime = moment().tz(timezone).hours(8).minutes(0).seconds(0);
console.log(supportStartTime.format());
var supportEndsTime = moment().tz(timezone).hours(16).minutes(0).seconds(0);
console.log(supportEndsTime.format());
var now = moment().tz('EST').startOf('day').hours(10);
console.log(now.format());
var isBetweenWorkingHours = now.isBetween(supportStartTime,supportEndsTime);
console.log(isBetweenWorkingHours);
var now = moment().tz('EST').startOf('day').hours(12);
console.log(now.format());
var isBetweenWorkingHours = now.isBetween(supportStartTime,supportEndsTime);
console.log(isBetweenWorkingHours);
var now = moment();
console.log(now.format());
var isBetweenWorkingHours = now.isBetween(supportStartTime,supportEndsTime);
console.log(isBetweenWorkingHours);
。