handle aes( ... = NULL) appropriately

ggplotly does not accept aesthetics with NULL assignment.
Use case in a programmatic big app I have a code that assigns aesthetics globally then turn off the aesthetics for some layers.
There are some workarounds but my issue I am filing in here is to handle correctly the aes ( ... = NULL)

require(ggplot2)
require(plotly)

plottest<- ggplot(mtcars,aes(mpg,disp))+
  aes(group=cyl)+
  geom_line()+
  geom_smooth(aes(group=NULL))

ggplotly(plottest)

plotfixed<- ggplot(mtcars,aes(mpg,disp))+
  geom_line(aes(group=cyl) )+
  geom_smooth()

ggplotly(plotfixed)

首先使用 ggplot2 和 plotly 运行所提供的 R 示例，将全局 group aesthetic 与使用 aes(group=NULL) 的 layer 进行比较。跟踪 ggplotly 如何处理该 layer，并验证将 NULL 赋值后会禁用继承的 aesthetic，同时不会破坏转换过程。