4

質問が既に出されていることは知っていますが、問題を解決できませんでした。グラフのテキスト引数を選択すると、グラフが読み取れなくなり、識別引数を選択すると、それは良くありません。ここに画像の説明を入力

これは私がこのスクリプトで得たものです:

VehiculeFunction <- function(data, gamme, absciss, ordinate, label, xlim, ylim){
  my.data <- data[data$GAMME == gamme,]
  ma.col = rgb(red = 0.1,blue = 1,green = 0.1, alpha = 0.2)
  X <- my.data[[absciss]] 
  Y <- my.data[[ordinate]] 
  Z <- my.data[[label]]
  X11()
  plot(X, Y, pch=20, las = 1, col = ma.col, xlab = absciss, ylab = ordinate, xlim = xlim, ylim = ylim)
  text(X, Y, labels = Z, pos=3, cex = 0.7, col = ma.col)
  #identify(X, Y, labels = Z, cex = 0.7)
}

VehiculeFunction(data.vehicule, "I", "GMF.24", "Cout.24", "NITG", c(0,0.2), c(0,0.2))

iplot を使用しましたが、identify および text 引数を追加できませんでした... ggplot を使用したことがないため、問題を解決できるかどうかはわかりません。

ご協力ありがとう御座います。

4

1 に答える 1

2

役立つツールがパッケージに含まfacet_zoomれています。ggforce

data.vehicule私はオブジェクトにアクセスできないのでmtcars data.frame、グラフィックの領域を拡大する例として を使用します。

library(ggplot2)
library(ggforce)
library(dplyr)

mtcars2 <- mtcars %>% mutate(nm = rownames(mtcars))

ggplot(mtcars2) +
  aes(x = wt, y = mpg, label = nm) +
  geom_text()

last_plot() +
  theme_bw() +
  facet_zoom(x = dplyr::between(wt, 3, 4),
             y = dplyr::between(mpg, 12, 17))

ここに画像の説明を入力

于 2017-04-22T21:39:40.737 に答える