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 をファイルのすべての行に出力したいだけです。このような:

1行目:「ダナゾール」「メチルテストステロン」「エチニルエストラジオール」「メチマゾール」「エチオナミド」

2行目:「ナプロキセン」「インドメタシン」「ロルノキシカム」「トリアゾラム」「四塩化炭素」・・・

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 に答える