gghighlight 2 конкретные точки ggplot2

Question

Попытка выделить 2 конкретные точки из следующего набора данных:

Entry,DWSpk,FE
1,1.335703125,36.075
2,1.0821875,45.79413708
3,1.28984375,36.925
5,0.910625,49.125
6,0.8728125,55.9
7,0.84125,56.925
8,0.93875,46.775
9,1.159453125,41.575
10,1.11375,40.45
Rialto,0.89140625,51.875
Savannah,1.33609375,35.275

Попробуйте следующий код:

p1 <- ggplot(HiBAP1517, aes(FE,DWSpk)) + 
  geom_point(shape=16) + 
  gghighlight(FE==51.875 & FE==35.275) + 
  geom_smooth(method=lm, se = F) + 
  theme(axis.title.x = element_text(color="black", size=14, face="bold"),
        axis.title.y = element_text(color="black", size=14, face="bold"))

pfinal <- p1 + labs(y = expression("DM spk"^{-1}*"g"),
                    x = expression("FE"*(grainsg^{-1})))
pfinal

Но, похоже, не работает ... любойидея?

Answer 1

Это должно работать.Я прокомментировал основные изменения в вашем коде.

devtools::install_github("yutannihilation/gghighlight")
library(gghighlight)
p1 <- ggplot(HiBAP1517, aes(FE,DWSpk)) + 
  geom_point(shape=16) + 
  gghighlight(FE %in% c(51.875, 35.275)) + # 1st edit
  geom_smooth(method="lm", se = F) +       # 2nd edit
  theme(axis.title.x = element_text(color="black", size=14, face="bold"),
        axis.title.y = element_text(color="black", size=14, face="bold"))
p1
pfinal <- p1 + labs(y = expression("DM spk"^{-1}*"g"),
                    x = expression("FE"*(grainsg^{-1})))
pfinal