1

像这样的数据：

b <- list(
structure(c(2L, 11L, 52L, 63L, 123L), .Names = c("danazol",
"methyltestosterone", "ethinylestradiol", "methimazole", "ethionamide"
)), 
structure(c(6L, 9L, 16L, 49L, 66L, 67L), .Names = c("naproxen", "indomethacin",
"lornoxicam", "triazolam", "carbon tetrachloride", "allyl alcohol"))
)

我只想将每列的 .Names 输出到文件的每一行。像这样：

第一行：“达那唑”、“甲基睾酮”、“炔雌醇”、“甲巯咪唑”、“乙硫异烟胺”

第二行：“萘普生”、“消炎痛”、“氯诺昔康”、“三唑仑”、“四氯化碳”……

4

2 回答 2

1

找这个……？如果不是，请改写您的问题以使其更清楚。

> unlist(sapply(b, names))
 [1] "danazol"              "methyltestosterone"   "ethinylestradiol"     "methimazole"         
 [5] "ethionamide"          "naproxen"             "indomethacin"         "lornoxicam"          
 [9] "triazolam"            "carbon tetrachloride" "allyl alcohol"

或者也许正在寻找这个......？

Names <- unlist(sapply(b, names))
paste(Names, collapse=", ")
[1] "danazol, methyltestosterone, ethinylestradiol, methimazole, ethionamide, naproxen, indomethacin, lornoxicam, triazolam, carbon tetrachloride, allyl alcohol"

我还是一头雾水，大概是这个？

> lapply(sapply(b, names), paste, collapse=", ")
[[1]]
[1] "danazol, methyltestosterone, ethinylestradiol, methimazole, ethionamide"

[[2]]
[1] "naproxen, indomethacin, lornoxicam, triazolam, carbon tetrachloride, allyl alcohol"
于 2013-05-26T14:45:55.970 回答
0 
invisible(lapply(lapply(b, names), cat, '\n', file = '1.txt', append = TRUE))
于 2013-05-26T15:10:31.597 回答