タグ付けされた質問 「r」

Excelの検索と置換機能と同様に、ベクトル内の文字列から特定の文字を削除したいと思います。 ここに私が始めるデータがあります： group <- data.frame(c("12357e", "12575e", "197e18", "e18947") 最初の列だけから始めます。を削除して2番目の列を作成しますe。 group group.no.e 12357e 12357 12575e 12575 197e18 19718 e18947 18947

262 r  regex  replace  gsub  string-substitution 

データフレームD1のカテゴリ変数V1は、AからZまでの文字で表される値を持つことができます。サブセットD2を作成します。これは、一部の値、たとえば、B、N、Tを除外します。基本的に、次のようなコマンドが必要です。の反対 %in% D2 = subset(D1, V1 %in% c('B','N',T'))

262 r 

データフレーム列を数値型に変換するにはどうすればよいですか？

261 r  dataframe  type-conversion 

マージしたい多くのdata.framesのリストがあります。ここでの問題は、行と列の数の点で各data.frameが異なるということですが、（私が呼ばれてきた彼らのすべての共有キーの変数"var1"と"var2"以下のコードで）。data.framesが列の点で同一である場合、私は単にrbindplyrのrbind.fillがその仕事をすることができますが、これらのデータの場合はそうではありません。 このmergeコマンドは2つのdata.framesでのみ機能するため、アイデアを求めてインターネットを利用しました。私はこれをここから入手しましたが、R 2.7.2で完全に機能しました。 merge.rec <- function(.list, ...){ if(length(.list)==1) return(.list[[1]]) Recall(c(list(merge(.list[[1]], .list[[2]], ...)), .list[-(1:2)]), ...) } そして、私はそのように関数を呼び出します： df <- merge.rec(my.list, by.x = c("var1", "var2"), by.y = c("var1", "var2"), all = T, suffixes=c("", "")) しかし、2.11と2.12を含む2.7.2以降のRバージョンでは、このコードは次のエラーで失敗します。 Error in match.names(clabs, names(xi)) : names do not match previous names （ちなみに、私は他の場所でこのエラーへの他の参照を見ますであり、解決策がありません）。 これを解決する方法はありますか？

259 r  list  merge  dataframe  r-faq 

こんにちは、この単純なコード（および今朝のすべてのスクリプト）は、ggplot2で中心から外れたタイトルを付け始めました Ubuntu version: 16.04 R studio version: Version 0.99.896 R version: 3.3.2 GGPLOT2 version: 2.2.0 今朝、上記を新たにインストールしてこれを修正しようとしました... dat <- data.frame( time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")), total_bill = c(14.89, 17.23) ) # Add title, narrower bars, fill color, and change axis labels ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) + geom_bar(colour="black", fill="#DD8888", width=.8, stat="identity") + guides(fill=FALSE) …

256 r  ggplot2 

私はと呼ばれるスクリプト持っているfoo.R別のスクリプトが含まother.R同じディレクトリにあります、： #!/usr/bin/env Rscript message("Hello") source("other.R") しかし、私は現在の作業ディレクトリが何であっRてother.Rもそれを見つけたいです。 つまり、foo.R独自のパスを知る必要があります。どうやってやるの？

255 r  file  path  rscript  r-faq 

R言語の定義によれば、&andと&&（それに対応|して||）の違いは、前者はベクトル化されているが、後者はベクトル化されていないことです。 ヘルプテキストによると、「And」と「AndAlso」の違いに相当する違いを読みました（対応して「Or」と「OrElse」）... （Aがtrueの場合、AまたはBまたはCは常にtrueであるため、Aがtrueかどうかの評価を停止します） 誰かがここで光を当てることができますか？また、RにはAndAlsoとOrElseがありますか？

252 r  logical-operators  boolean-operations  or-operator  and-operator 

1つのレイヤーの凡例を維持し（滑らか）、もう1つのレイヤーの凡例（ポイント）を削除しようとしています。とで伝説を止めようguides(colour = FALSE)としましたgeom_point(aes(color = vs), show.legend = FALSE)。 編集：この質問とその回答は人気があるため、再現可能な例が順番に表示されます： library(ggplot2) ggplot(data = mtcars, aes(x = mpg, y = disp, group = gear)) + geom_point(aes(color = vs)) + geom_point(aes(shape = factor(cyl))) + geom_line(aes(linetype = factor(gear))) + geom_smooth(aes(fill = factor(gear), color = gear)) + theme_bw()

250 r  ggplot2  legend 

現在の日付を、.rmd処理対象のドキュメントknitrとrmarkdownパッケージのYAMLフロントマターに入れるトリックがあるのか​​と思います。私のwikiページの上部に次の行がありました。 _baptiste, `r format(Sys.time(), "%d %B, %Y")`_ そしてそれはhtml出力で2014年5月3日baptisteに変換されます。今、私はによって提供される高度なpandocラッパーを利用したいと思いrmarkdownますが、YAMLヘッダーにrコードを含めることは機能していないようです： --- title: "Sample Document" output: html_document: toc: true theme: united date: `r format(Sys.time(), "%d %B, %Y")` author: baptiste --- Error in yaml::yaml.load(front_matter) : Scanner error: while scanning for the next token at line 6, column 7 found character that cannot start any …

247 r  yaml  knitr  r-markdown 

Rリストがある場合はmylist、次のobjようにアイテムを追加できます。 mylist[[length(mylist)+1]] <- obj しかし、確かにもっとコンパクトな方法があります。私がRの初心者だったとき、次のlappend()ように書いてみました。 lappend <- function(lst, obj) { lst[[length(lst)+1]] <- obj return(lst) } しかしもちろん、Rの名前による呼び出しのセマンティクスのために機能しません（lst呼び出し時に効果的にコピーされるため、への変更lstはのスコープ外には表示されませんlappend()。R関数で環境ハッキングを実行して、関数のスコープと呼び出し環境を変更しますが、単純な追加関数を書くのは大きなハンマーのようです。 誰かがこれを行うより美しい方法を提案できますか？ベクトルとリストの両方で機能する場合、ボーナスポイント。

245 r  performance  list  append  big-o 

次の形式のデータを取得したい before = data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2')) attr type 1 1 foo_and_bar 2 30 foo_and_bar_2 3 4 foo_and_bar 4 6 foo_and_bar_2 そして、split()上から列 " type" を使用して、次のようなものを取得します。 attr type_1 type_2 1 1 foo bar 2 30 foo bar_2 3 4 foo bar 4 6 foo bar_2 何らかの形でapply機能するという信じられないほど複雑なことを思いつきましたが、それを誤解してしまいました。最善の方法になるには複雑すぎるように見えました。strsplit以下のように使用できますが、それをデータフレームの2列に戻す方法が不明です。 > strsplit(as.character(before$type),'_and_') [[1]] [1] "foo" …

245 r  string  dataframe  split  r-faq 

同じ列のセットを持たない2つのデータフレームを行バインドすることは可能ですか？バインド後に一致しない列を保持したいと考えています。

232 r  dataframe  r-faq 

カウントを示す棒グラフとレートを示す折れ線グラフをすべて1つのグラフにプロットする必要があります。両方を別々に行うことができますが、それらを一緒にすると、最初のレイヤー（つまりgeom_bar）のスケールが2番目のレイヤーと重なりますレイヤー（つまり、geom_line）。 の軸をgeom_line右に移動できますか？

231 r  ggplot2  r-faq 

次のggplotコマンドを使用しました。 ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10) + scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2)) + facet_grid(hospital ~ .) + theme(panel.background = theme_blank()) 生産する 私は変更したいファセット（のような短いものに、しかし、ラベルをHosp 1、Hosp 2彼らは今、長すぎると見た目が窮屈ので、グラフの高さを高くする（...）オプションではありません、それはにあまりにも多くのスペースを取るだろうドキュメント）。facet_gridのヘルプページを見ましたが、その方法がわかりません。

231 r  ggplot2  symbols  facet  plotmath 

に回帰直線方程式とR ^ 2を追加する方法を知りたいggplotです。私のコードは： library(ggplot2) df <- data.frame(x = c(1:100)) df$y <- 2 + 3 * df$x + rnorm(100, sd = 40) p <- ggplot(data = df, aes(x = x, y = y)) + geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) + geom_point() p どんな助けも高く評価されます。

228 r  ggplot2  linear-regression  r-faq