写个函数添加或查看批注 (⊙o⊙)
# 构建数据
# 这是备注向量
my_comment <- c("unit:na", "unit:million", "unit:km")
# 这是需要加备注的数据框
my_data <- data.frame("year" = c(2019, 2021),
"population" = c(5, 7),
"length" = c(100, 200))
# 给列名加批注
func_addnote <- function(data, note) {
for (i in c(1: ncol(data))) {
comment(data[, names(data)[i]]) <- note[i]
}
data
}
my_data_with_notes <- func_addnote(my_data, my_comment)
# 查看列名对应的批注
func_looknote <- function(data) {
notes <- character(0)
for (i in c(1: ncol(data))) {
note <- attributes(data[, i])$comment
# 如果没有备注就转化为“nocomment"
if (is.null(note)) {note = "nocomment"}
notes <- c(notes, note)
}
notes_df <- data.frame(colnames = names(data), note = notes)
notes_df
}