如何根据R中的函数参数打印绘图？

Question

我正在尝试构建一个储蓄计算器。 最终，我想创建一个 RShiny 应用程序，但在此之前，我想确保代码是完美的。 做我想做的，我必须使用三个块，它们是：

ks <- function (x) { number_format(accuracy = 1,
                                   scale = 1/1000,
                                   big.mark = ",")(x) }
savings <- function(years,apr,initial,investment) {
   value <- numeric(years + 1)
   value[1] <- initial
   for (i in 1:years) value[i + 1] <- (value[i] + investment) * apr
   data.frame(year = 0:years, value)
}

savings(45.02,1.07,45000,15000)

ggplot(data=savings(45,1.07,45000,15000),aes(x=year,y=value))+geom_line()+ scale_x_continuous(breaks = seq(0, 100, by = 5)) +
  scale_y_continuous(labels = ks, breaks = seq(0, 400000000, by = 250000))+labs(x="Year",y="Value (thousands)")

我想生成 ggplot 作为“储蓄”功能的一部分，但我不知道如何集成它。

Answer 1

您可以将数据帧保存在一个对象中并在ggplot使用它

library(ggplot2)

savings <- function(years,apr,initial,investment) {
   value <- numeric(years + 1)
   value[1] <- initial
   for (i in 1:years) value[i + 1] <- (value[i] + investment) * apr
   df <- data.frame(year = 0:years, value)

   ggplot(data=df,aes(x=year,y=value))+ geom_line() + 
    scale_x_continuous(breaks = seq(0, 100, by = 5)) +
    scale_y_continuous(labels = ks, breaks = seq(0, 400000000, by = 250000)) + 
    labs(x="Year",y="Value (thousands)")
}

savings(45.02,1.07,45000,15000)