rlang

1熱

3答えて

私はrlangパッケージを使って、右辺式（代入する値）と左辺式（代入先）を指定して、代入を行う式を作成しようとしています。たとえば、のは、私が表現a <- 5を構築し、評価したいとしましょう： > library(rlang) > a <- "Not 5" > lhs <- quo(a) > rhs <- quo(5) > eval_tidy(quo((!!lhs) <- (!!rhs))

0熱

1答えて

私はdplyrを利用する関数を作成しながら、新しい現状の機能を使用しようと、次の問題に遭遇していますdplyr 0.7.1

で関数を配置：変数によってデータフレームを配置する df <- tibble( g1 = c(1, 1, 2, 2, 2), g2 = c(1, 2, 1, 3, 1), a = sample(5), b = sample(5) ) は簡単です： my_arrange <- function(df, arrange_var) { quo_arr

3熱

3答えて

私はdplyr使用して列のベクトルを削除したい列にtidyeval方法

を削除する> =次のように< 0.7は働い0.7 library(dplyr) data(mtcars) rem_cols <- c("wt", "qsec", "vs", "am", "gear", "carb") head(select(mtcars, !!paste0("-", rem_cols))) Error: Strings must match column names.

0熱

2答えて

どのようにmutateのようなチェーン評価を実装するには？

Dplyrのmutate関数は "連鎖"式を評価できます。 library(dplyr) data.frame(a = 1) %>% mutate(b = a + 1, c = b * 2) ## a b c ## 1 1 2 4 これはどのように実装できますか？ dplyrのソースコードで一目は、候補コードの基本的な構造を明らかにする： library(lazyeval)

2熱

2答えて

プログラミングでdplyr合体を使用する

dplyrのprogramming magic、バージョン0.7.0に新しく、3210の2つの列を使用したいと思います。以下、私は私の試みのいくつかを挙げました。 df <- data_frame(x = c(1, 2, NA), y = c(2, NA, 3)) # What I want to do: mutate(df, y = coalesce(x, y)) # Here's

1熱

3答えて

dplyrとgroup_byを使用して独自の関数を書く - 変更された列名を使用する方法

2つの変数でグループ化された観測数を与えるテーブルを公開する必要があります。このコードは正常に動作します。しかし、私はこれを機能に変えようとすると問題に遭遇しました。テーブルの機能の外コード：：これは library(tidyverse) tab1 <- mtcars %>% count(cyl) %>% rename(Total = n) tab2 <- mtcars %>%

1熱

1答えて

私が選択して、単一の列を手配することができます

複数の列のトップリストを取得する方法： iris %>% select(Petal.Width, Species) %>% arrange(desc(Petal.Width)) しかし、私は全体のデータフレームのためにこれをやってみたいです。私はforloopでこれに近づいています： features <- colnames(iris) top <- data.frame

8熱

4答えて

dplyrとggplotの両方に関数の引数を渡します

dplyrとggplotのコードに関数の引数を渡す方法が混乱しています。私はここでdplyrとggplot2 の最新バージョンを使用してbarplot（平均価格対明瞭度）を生成するために私のコードですよ diamond.plot<- function (data, group, metric) { group<- quo(group) metric<- quo(metric)

7熱

1答えて

閉鎖に基づいて新しい変数に名前をつける

私は、変数の定義済みベクトル（例えばvector_heavy）からの値に基づいて新しい変数を計算し、引数に基づいて新しい変数に名前を付けるカスタム関数を記述しようとしています関数（例えば、custom_name）に提供されます。この変数の名前は、私の閉鎖スキルが失敗するところです。どんな助けでも大歓迎です。 library(tidyverse) vector_heavy <- quos(di