3

プロットでdirectlabelsパッケージでggplot2を使用していますgeom_line()が、ラベルの1つに「XM」と表示させたいと思います。ただし、私のdata.frame()「XM」では、列名が「XM」に名前が変更され、関数にカスタムラベル名を付ける方法に関するドキュメントが見つからずdirect.label、ソースを読むこともできませんでした。（directabelsは、私が最初に試したggplotスケールで設定されたラベル名を尊重していないようです。）

サンプルコード：

library("scales")
library("reshape2")
library("ggplot2")
library("directlabels")

data = data.frame(
  C = c(1.2, 1.4, 0.3, -2.0, 0.5),
  I = c(1.2, 1.5, -1.3, -3.8, 1.8),
  G = c(0.2, 0.3, 0.3, 0.2, 0.2),
  "X-M" = c(2.9, -0.7, 0.3, -2.8, 1.5) +
          c(-2.7, 0.2, 0.4, 3.6, -2.4),
  year = c("2006", "2007", "2008", "2009", "2010"))

p <- ggplot(data = melt(data), aes(year, value, color = variable)) +
  geom_line(aes(group = variable)) +
  scale_color_hue(breaks = c("C", "I", "G", "X.M"),
                  labels = c("C", "I", "G", "X-M"))  # directlabels doesn't
                                                     # use this

# Compare:
p

# with:
direct.label(p, list(last.points, hjust = -0.25))

結果のグラフはここで見ることができます。直接ラベルのあるものは、「XM」の代わりに「XM」を使用します。よろしくお願いします！

4

1 に答える 1

4

パッケージdirectlabelsは、データの列名からラベルを取得しているようです。

これは、最初にデータのラベルが正しいことを確認する必要があることを意味します。これを行うには、check.names=FALSE作成時に設定する必要がありますdata.frame：

data = data.frame(
  C = c(1.2, 1.4, 0.3, -2.0, 0.5),
  I = c(1.2, 1.5, -1.3, -3.8, 1.8),
  G = c(0.2, 0.3, 0.3, 0.2, 0.2),
  "X-M" = c(2.9, -0.7, 0.3, -2.8, 1.5) +
    c(-2.7, 0.2, 0.4, 3.6, -2.4),
  year = c("2006", "2007", "2008", "2009", "2010"),
  check.names=FALSE)

data
     C    I   G  X-M year
1  1.2  1.2 0.2  0.2 2006
2  1.4  1.5 0.3 -0.5 2007
3  0.3 -1.3 0.3  0.7 2008
4 -2.0 -3.8 0.2  0.8 2009
5  0.5  1.8 0.2 -0.9 2010

今プロット：

p <- ggplot(data = melt(data), aes(year, value, color = variable)) +
  geom_line(aes(group = variable)) 
direct.label(p, list(last.points, hjust = -0.25))

ここに画像の説明を入力してください

于 2012-07-17T23:02:32.707 に答える