11

ウィキペディアからテーブルをインポートした後、次の形式の値のリストがあります。

    > tbl[2:6]
    $`Internet
    Explorer`
     [1] "30.71%" "30.78%" "31.23%" "32.08%" "32.70%" "32.85%" "32.04%" "32.31%" "32.12%" "34.07%" "34.81%"
    [12] "35.75%" "37.45%" "38.65%" "40.63%" "40.18%" "41.66%" "41.89%" "42.45%" "43.58%" "43.87%" "44.52%"

    $Chrome
     [1] "36.52%" "36.42%" "35.72%" "34.77%" "34.21%" "33.59%" "33.81%" "32.76%" "32.43%" "31.23%" "30.87%"
    [12] "29.84%" "28.40%" "27.27%" "25.69%" "25.00%" "23.61%" "23.16%" "22.14%" "20.65%" "19.36%" "18.29%"

データを数値形式に変換するために、パーセント記号を取り除こうとしています。

ベクトル化するよりも、このデータをクリーンアップするためのより速い方法はありますか? 私の現在のコードは次のとおりです。

    data <- lapply(tbl[2:6], FUN = function(x) as.numeric(gsub("%", "", x)))

gsubデータは最終的にデータ フレームになりますが、データ フレームのすべての要素で適切に動作することはできませんでした。データ フレームの各要素を gsub() する方法はありますか?

プロジェクトのコードがオンラインになり、結果が表示されます。前もって感謝します！

4

3 に答える 3

12

私はあなたが次の方法でそれを行うことができると思いますが、それがあなたのものよりも優れているかクリーンであるかはわかりません:

df <- data.frame(tbl)
df[,-1] <- as.numeric(gsub("%", "", as.matrix(df[,-1])))

与える：

R> head(df)
            Date Internet.Explorer Chrome Firefox Safari Opera Mobile
1   January 2013             30.71  36.52   21.42   8.29  1.19  14.13
2  December 2012             30.78  36.42   21.89   7.92  1.26  14.55
3  November 2012             31.23  35.72   22.37   7.83  1.39  13.08
4   October 2012             32.08  34.77   22.32   7.81  1.63  12.30
5 September 2012             32.70  34.21   22.40   7.70  1.61  12.03
6    August 2012             32.85  33.59   22.85   7.39  1.63  11.78
R> sapply(df, class)
             Date Internet.Explorer            Chrome           Firefox 
         "factor"         "numeric"         "numeric"         "numeric" 
           Safari             Opera            Mobile 
        "numeric"         "numeric"         "numeric"
于 2013-02-14T09:17:44.890 に答える
4

jubaのように、この方法が「より良いかクリーン」かはわかりませんが...データフレームのすべての要素に作用するには、applyを使用できます:

# start with data frame, not list
url <- "http://en.wikipedia.org/wiki/Usage_share_of_web_browsers"
# Get the eleventh table.
tbl <- readHTMLTable(url, which = 11, stringsAsFactors = F)

# use apply on the non-date columns
tbl[, 2:7] <- apply(tbl[, 2:7], 2, function(x) as.numeric(gsub("%", "", x)))
于 2013-02-14T10:18:28.607 に答える
0

-loopを使用してこれを行いますfor(人々がループをあまり好まないことは知っていますが、少なくともデータ構造には影響しません)。

 for (i in 1:length(tbl[2:6])) {
         tbl[,i] <- gsub("%", "", tbl[,i])
 }
于 2021-11-29T15:15:00.110 に答える