tidyverse

    0

    1答えて

    私は再構成が必要なデータフレームに問題があります。 私は、このコマンドを持っている: library(tidyverse) df1 = df1 %>% gather(Day, value, Day01:Day31) %>% spread(Station, value) をそして、私はこのエラーを取得する: Error: Duplicate identifiers for rows (1309

    -3

    1答えて

    my data fileで簡単なハイライン折れ線グラフを作成したいと思います。 最初にデータを変更したので、Rは日付と時刻を認識します。 library("tidyverse") library("ggplot") library("highcharter") Moisture_kurokawa <- read_csv("~/Data/Moisture kurokawa.csv") mu

    9

    2答えて

    私はオーバーラッピング間隔を見つけようとしていて、dplyr::left_join()でインターバルデータに参加することにしました。その結果、lubridate::int_overlaps()のインターバルと同じIDで他のインターバルを比較することができました。 left_join()の動作は次のとおりです。 3行tibble 9を持つ行を形成するように交差して2 tibbles: library

    1

    1答えて

    データセットをクリーニングしており、多くの因子変数を再コード化する必要があります。これを行う関数を作成するのにrlangとmapを使用したいと思います。私のサンプルデータセットとコードは以下の通りです。私はほとんどそれを持っていると思うが、私は完全に把握していないのでおそらく、バグを把握することができませんrlang。 の作業データセット:ここ df1 <- tribble( ~var1, ~va

    2

    1答えて

    に複数の単語の完全一致に基づいて新しい列を核変換します最初の4つの列の式を評価し、その式が完全に満たされている場合は、各列に基づいて1/0を出力します。私が下にあるコードは、完全な単語(一部のみ)と一致せず、間違ったデータを提供します(下記の結果を参照)。 df %>% rowwise() %>% transmute_at(vars(NP, OM, RSS, suck),

    3

    1答えて

    多項式の項のみが異なるモデルのrmseを比較する次のコードがあります。 library(tidyverse) data(mtcars) cv_mtcars = mtcars %>% crossv_kfold(k = 10) cv_mtcars %>% mutate(model1 = map(train, ~lm(disp ~ wt, data = .)), m

    2

    1答えて

    私はこのtibbleを持っている:tidyrからseparate()を使用してInvoiceDate列を分割する # A tibble: 541,909 x 7 InvoiceNo StockCode Quantity InvoiceDate UnitPrice CustomerID <chr> <chr> <int> <dttm> <dbl> <int>

    0

    1答えて

    Excelのデータは、そのデータを別のテーブルに要約するアプリケーションから得ています。データはExcelではうまく見えますが、Rにインポートしようとすると、一部の列がスキップされて配置されません。私はそれをプロットできるようにデータを整理する必要があります。 以下は再現可能なサンプルです。以下は df <- data.frame(` ` = c("cars","buses","","under

    0

    2答えて

    fwfを持つベクトルの行(ファイルではない)をデータフレームに読み込むにはどうすればよいですか? 今は2つの方法が考えられますが、実際にはもっと良い方法が必要だと私は思っています。任意のアイデアが評価されます。 data.frame() + substring()を使用してください。それは仕事をしますが、データが "不揃い"(それは、以下のようなブロックによって)であれば簡単には一般化できません。

    5

    2答えて

    これは、tidyverseフレームワークを使用してこれを達成できるかどうか、またどのように達成できるかを理解したいと思います。以下のリストを考えると my_fn <- function(list_char) { data.frame(comma_separated = rep(paste0(list_char, collapse = ","),2), second_col =