fork download 
  1. # Генерация данных
  2. u <- runif(1000)
  3. x <- -log(u) / 2.75
  4.  
  5. # Сохраняем график в файл PNG
  6. png("my_plot.png", width = 800, height = 600)
  7.  
  8. # Строим гистограмму
  9. hist(x,
  10.      prob = TRUE,
  11.      breaks = 25,
  12.      col = "gray",
  13.      main = "Гистограмма и теоретическая плотность",
  14.      xlab = "Значения x",
  15.      ylab = "Плотность")
  16.  
  17. # Добавляем кривую
  18. curve(dexp(x, rate = 2.75),  # Ошибка: у вас было dev0, должно быть dexp
  19.       lwd = 2,
  20.       col = "red",
  21.       add = TRUE)
  22.  
  23. # Добавляем легенду
  24. legend("topright",
  25.        legend = c("Гистограмма", "Теоретическая плотность Exp(2.75)"),
  26.        fill = c("gray", "red"))
  27.  
  28. # Закрываем устройство вывода
  29. dev.off()
  30.  
  31. # Сообщаем, что график создан
  32. cat("График сохранен в файл 'my_plot.png'")
Success #stdin #stdout 0.4s 50516KB
comments (?)
stdin 
Standard input is empty
stdout 
null device 
          1 
График сохранен в файл 'my_plot.png'
https://ideone.com/X5Kl84
language:
R (R 3.5.2)
created:
6 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!