Построение кривой лепестка розы в Rmarkdown pdf? - PullRequest
Новая
       33

Построение кривой лепестка розы в Rmarkdown pdf?

0 голосов
/ 04 февраля 2020

Я пытаюсь создать график лепестков роз в pdf-версии файла Rmarkdown, но он работает только для документа html. Как бы мне обойти это?

Это код, который я использую: 

f <- function(){
  output <- matrix(ncol=2, nrow = 360)
  for (i in 0:360){
    output[i,1] <- i
    output[i,2] <- 3 * cos(4 * (i * pi/180))
  }
  return(output)
}
mf <- f()

shift_center_zero <- function(m){
  m_negative <- m[,2]<0 # get negative rows
  m[m_negative,1] <- (m[m_negative,1]+180)%%360 # angle shift
  m[m_negative,2] <- -1*m[m_negative,2] # radius shift
  return(m)
}

# make the shift
mf<-shift_center_zero(mf)

df <- data.frame("theta" = mf[,1], "r"=mf[,2])


p <- plot_ly(
  df,
  type = 'scatterpolar',
  mode = 'lines'
) %>%
  add_trace(
    r = ~r,
    theta = ~theta,
    name = 'Function',
    line = list(
      color = 'red'
    )
  ) %>%
  layout(
    title = 'A flower for you!',
    font = list(
      family = 'Arial',
      size = 12,
      color = '#000'
    ),
    showlegend = F
  )
p

Спасибо!

...