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)

Bắt đầu bằng cách chạy các ví dụ R được cung cấp với ggplot2 và plotly, so sánh aesthetic group toàn cục với layer sử dụng aes(group=NULL). Theo dõi cách ggplotly xử lý layer đó và xác minh rằng việc gán NULL sẽ vô hiệu hóa aesthetic được kế thừa mà không làm hỏng quá trình chuyển đổi.