R 如何将下面老虎机函数的结果绘制成一个图表，以便在标记HTML文件中使用？

如何将下面老虎机函数的结果绘制成一个图表，以便在标记HTML文件中使用

这是一个由两部分组成的问题，我如何在一个减价HTML文件上显示老虎机功能的结果（在3次“播放”后），其次，我如何在绘图上显示结果？经过多次尝试，我被难倒了。任何帮助都将不胜感激

代码如下：

    library(ggplot2)
    # Project 5.4 Slot Machine

    ## Symbols code
    get_symbols <- function() {
    wheel <- c("DD","7","BBB","BB","B","C","0")
    sample(wheel,size=3,replace=TRUE,prob=c(0.03,0.03,0.06,0.1,0.25,0.01,0.52))
    }


    ## Score Code

    score <- function(symbols) {
    #  identify case
    same <- symbols[1] == symbols[2] && symbols[2] == symbols[3]
    bars <- symbols %in% c("B","BB","BBB")


    ##  Prize Code

    if (same) {
    payouts <- c("DD"=100,"7"=80,"BBB"=40,"BB"=25,"B"=10,"C"=10,"0"=0)
    prize <- unname(payouts[symbols[1]])
    } else if (all(bars)) {
    prize <- 5
    } else {
    cherries <- sum(symbols == "C")
    prize <- c(0,2,5)[cherries+1]
    }

    ## adjust for diamonds code
    diamonds <- sum(symbols == "DD")
    prize * 2 ^ diamonds
    }

    # Play function to run slot simulation
    play <- function() {
    symbols <- get_symbols()
    print(symbols)
    score(symbols)
    }

    ## Play
    play ()
    play ()
    play ()


    qplot (x = score(symbols), y = print(symbols), binwidth = 30)

库（ggplot2）
#项目5.4老虎机
##符号代码
获取符号