Rでヴァイオリンプロットを2軸で作図したい

前提

Rでァイオリンプロットを用いたデータの可視化について教えてください。
X軸に条件 (刺激有り, 刺激無し; 値は刺激あり=1, 無し=2)， y軸にテスト点数をあらわすグラフを作成しようとしています。
ggplot2のgeom_point()で描写すると，X軸に2本の散布図が描写されます。
しかし，同様にgeom_violin()で描写すると，X軸の1.5を中心とする1本のグラフが描写されてしまいます。
geom_point()同様に2本に分けたいのですが，方法がわからず悩んでいます。
(下記のコードでそれぞれ作図した結果を画像添付します)

条件を分ける0と1という表記方法が原因かと思い，ローデータにて，条件の有無を[1,2]ではなく刺激あり=a, 刺激なし=sと置換して同じコードを走らせました。
その結果，geom_violin()とgeom_boxplot()ともに想定通りX軸の値aとsに１本ずつのプロットが描写されました。

しかし，できればローデータをいじらず，条件の有無を[1,2]表記したまま使用できればと考えています。
参考サイト (http://www.sthda.com/english/wiki/ggplot2-violin-plot-quick-start-guide-r-software-and-data-visualization) では数値 (dose) で条件分けされているため，数値を用いた表記方法が原因ではないのかもしれないと考えています。

解決方法がわかる方がいらっしゃいましたら，教えていただけますと幸いです。
どうぞよろしくお願いいたします。

実現したいこと

ローデータを編集することなく (条件を1,2表記のまま)，X軸に2本のバイオリンプロットや箱ひげ図を描写したい

該当のソースコード

data = read_csv("raw.csv")

# ポイント (2本)
p <- ggplot(data, aes(x = stim, y = score)) + 
  geom_point()
p

# ヴァイオリン (1本)
p <- ggplot(data, aes(x = stim, y = score)) + 
  geom_violin()
p