How to set the amino acid with special color? about r3dmol HOT 2 CLOSED

colorScheme="default"

m_style_sphere(scale = 0.5, color = "#e41a1c")

m_style_sphere(scale = 0.5, color = "#e41a1c", colorScheme = NULL)

rm(list = ls())
gc()
library(bio3d)
library(r3dmol)

p <- r3dmol() %>%
  m_add_model(data = m_fetch_pdb("6D7U", save.pdb = TRUE)) %>%
  m_add_model(data = m_bio3d(pdb)) %>%
  #   m_set_style(style = m_style_cartoon(color = 'spectrum', ribbon = TRUE)) %>%
  m_set_style(style = m_style_cartoon()) %>% 
  m_add_outline() %>% 
  #   m_set_style(style = c(m_style_cartoon(color = "spectrum", ribbon = TRUE), m_style_line())) %>% 
  m_add_surface(atomsel = m_sel(chain =c('A', 'B')), style = m_style_surface(opacity = 0.9, colorScheme="chain")) %>% 
  m_add_style(sel = m_sel(resi = c(206:220), chain="E"), style = m_style_sphere(scale = 0.5, color = "#e41a1c", colorScheme = NULL)) %>%
  #   m_set_style(sel = m_sel(resi = c(206:220), chain = "A", byres = TRUE), style = m_style_cartoon(color = "red")) %>%
  m_add_surface(atomsel = m_sel(resi = c(206:220), chain = "C"), style = m_style_surface(opacity = 0.9, color = "#e41a1c", colorScheme = NULL)) %>%
  #   m_add_line(start = m_sel(resi = 1:10, chain = "A"), end = m_sel(resi = 1:10, chain = "B"), spec = list(dashed = TRUE)) %>%
  m_add_label(text = "Site A", sel = m_sel( resi = 206:220, chain = "C"), style = m_style_label(borderColor = "green", borderThickness = 1, inFront = FALSE)) %>%
  #   m_zoom_to(sel = m_sel(resi = c(206:220), chain = "A"))
  #   m_set_zoom_limits(upper = 200, lower = 30)
  m_zoom_to()
p