web-dev-qa-db-ja.com

列ヘッダーを使用して、tibbleをデータフレームに変換する

次のようにインポートされたExcelシートのデータがあります。

F4_Off <- readxl::read_xlsx("myExcel.xlsx", sheet = "Offline", col_names = TRUE, range = "I1:L285")
F4_Off

F4_On <- readxl::read_xlsx("myExcel.xlsx", sheet = "Online", col_names = TRUE, range = "J1:M68")
F4_On

これは以下を使用して結合されます：

F4_Gesamt <- rbind(F4_Off, F4_On)

データは次のようになります。

A tibble: 351 x 4
    nein Smartphone `Computer / Laptop / Tablet` `keine Angabe`
   <dbl>      <dbl>                        <dbl>          <dbl>
 1   NA         NA                            1.             NA
 2   NA          1.                          NA              NA
 3   NA          1.                          NA              NA
 4   NA          1.                          NA              NA
 5   NA          1.                           1.             NA
 6   NA          1.                           1.             NA
 7   NA          1.                           1.             NA
 8   NA          1.                          NA              NA
 9   NA         NA                            1.             NA
10    1.        NA                           NA              NA

実際、これを列ごとに合計し（合計し、「1」を数えます）、次のようなテーブルに変換します。

    Type                                    Value
    <chr>                                   <dbl>
1   nein                                    162
2   Smartphone                              120
3   `Computer / Laptop / Tablet`            93
4   `keine Angabe`                          16

私は次のようにして要約を達成できます：

F4_Gesamt_sum <- colSums(F4_Gesamt, na.rm = TRUE, dims = 1)

その後、次のようになります。

                   nein                 Smartphone Computer / Laptop / Tablet               keine Angabe 
                    162                        120                         93                         16

今：

str(F4_Gesamt_sum)

与える：

Named num [1:4] 162 120 93 16
 - attr(*, "names")= chr [1:4] "nein" "Smartphone" "Computer / Laptop / Tablet" "keine Angabe"

そして、これは私が今何日も無惨に失敗するポイントです、どうやって私がそれを上に「偽造」したように見えるようにするのですか？

最後に、このデータをggplotに送り、ニースの棒グラフを作成します。

rdataframetibble
4
xBarns

試す

as.data.frame(F4_Gesamt_sum)

または

(function(x)data.frame(Type=names(x), Value=x))(F4_gesamt_sum)
5
lebatsnok