按元素名称获取字符向量的名称属性

Question

x <- c("one", "two")
attr(x, "names") <- c("eins", "zwei")

现在我想只获取one的名称属性：

x$one
# Error in x$one : $ operator is invalid for atomic vectors
attr(x, "names")$one
# Error in attr(x, "names")$one : $ operator is invalid for atomic vectors

我该怎么办？

Answer 1

这样做你想要的吗？

x <- c("one", "two")
attr(x, "names") <- c("eins", "zwei")

> attr(x, "names")[1]
[1] "eins"

或者这个：

> attr(x[x=="one"],"names")
> [1] "eins"

*修改

如果您只对name属性感兴趣，也可以使用：

names(x[x=="one"])

以获得理想的结果。