ggplot2のshapeを文字列の部分一致を利用して（？）変更したいです

Question

以下のようなデータフレームがあります

このデータフレームを材料に、ggplot2のgeom_pointメソッドを用いてグラフを書いています。
グラフはatt1が横軸、att2が縦軸の散分図です。
ここで、methodのtypeAではshape=1、typeBではshape=2となるようにしたいのです。

上では「文字列の部分一致を利用して」と書きましたが、部分一致でなくても構いません。
とにかく、上４つのデータと下４つのデータが違った形状でプロットしたいのです。

下に、自分で試してみたコードを載せておきます。
上から４行はshape=1、それ以外はshape=2となることを目指したコードです。

###ソースコード

p <- ggplot(frame, aes(x = att1, y = att2))
p +geom_point(aes(color= method, size=4,
                 shape= ifelse(frame[1:4,], 1, 2)
                 )
             )

###発生している問題・エラーメッセージ
ifelse(frame[1:4,], 3, 2)でエラー：
(list)オブジェクトは'logical'に変換できません

###バージョン情報
R--3.2.2
ggplot2--1.0.1

どうかよろしくお願いします。

Answer 1

次のような，ソースコードでグラフを得ることができました．

library(ggplot2)
library(stringr)
method = c('typeA_1', 'typeA_2', 'typeA_3', 'typeA_4', 'typeB_1', 'typeB_2', 'typeB_3', 'typeB_4')
att1 <- c(0.9991, 0.9998, 0.9956, 0.9960, 0.9802, 1.000, 0.9725, 0.9996)
att2 <- c(5.883903, 7.113087, 38.118797, 126.598325, 113.170862, 21.012656, 281.632863, 81.178447)
data <- data.frame(method = method, att1 = att1, att2 = att2)
shape.factor <- as.factor(ifelse(str_detect(data[, 1], "A"), 1, 2))

p <- ggplot(data, aes(x = att1, y = att2))
p + geom_point(aes(color = method, size = 4, shape = shape.factor))

このソースコードを実行すると，次のグラフが得られます．

ソースコードの説明ですが，

str_detect(data[, 1], "A")

は，data[, 1]の文字列の中にAが入っていればTRUEを返し，入っていなければFALSEを返します．つまり，typeAであればTRUEを返し，typeBであればFALSEを返します．
data[, 1]はmethodを指しています．実際に実行して確かめてみてください．

つぎに，ifelse()によって，TRUEを1に，FALSEを2に変えます．
最後に，引数shapeはfactorクラスで渡さなければいけないので，as.factorで型変換しています．

Comments

[退会済みユーザー]

丁寧に回答していただき、ありがとうございます！
stringrを使うのは思いつきませんでした（というかパッケージの存在を知りませんでした）
なるほどshapeはfactorクラスで渡す必要があったのですか・・・
もっとよくリファレンスを見るように心がけます。
凡例が少し見ずらいのは今後の課題とさせていただきます！