lattice:：latticeParseFormula（x，data=data）中出错：模型必须是公式对象

我尝试使用rChart的rNVD3包的离散条形图，而不是相同的ggplot2。但它需要一些公式参数作为第一个参数。我没有使用lattice软件包，也不知道如何创建一个

这是我的数据框：

   df <- data.frame(
      Pupil = factor(c("Richy","Shyam","Nithin"), levels=c("Richy","Shyam","Nithin")), 
      Scores = c(75,93,62)
      )

---

df
rCharts
由于使用了。你很接近。首先安装，然后按如下所示使用，而不是
nvd3Plot
。另外，你可能会对它感兴趣

库（rCharts）
df Try
nvd3Plot（分数~瞳孔，数据=df，type=“discreteBarChart”，宽度=600）
。错误信息很清楚。即使我运行了你的LOC，我也不会得到。未渲染输出。它也没有显示错误。而是出现上面提到的js代码@帕斯卡利特不是我说的。如果我真的需要写所有的东西：
bar1这是我为@Pascal所做的尝试，但它不起作用。根据你的编辑，它不起作用。我放弃了。我说了
bar1
  require(rNVD3)
    bar1 <- nvd3Plot(x = "Pupil", y = "Scores", data = df, type = "discreteBarChart", width = 600)
    bar1$printChart("chart1")

 bar1<-nvd3Plot(Scores ~ Pupil, data = df, type = "discreteBarChart", width = 600)
    bar1$printChart("chart1")

<div id='chart1' class='nvd3Plot'></div>
    <script type='text/javascript'>
        drawchart1()
        function drawchart1(){  
          var opts = {"id":"chart1","yAxis":[],"x":"Pupil","y":"Scores","type":"discreteBarChart","width":600,"height":400},
            data = [{"Pupil":"Richy","Scores":75},{"Pupil":"Shyam","Scores":93},{"Pupil":"Nithin","Scores":62}]

          var data = d3.nest()
            .key(function(d){
              return opts.group === undefined ? 'main' : d[opts.group]
            })
            .entries(data)

          nv.addGraph(function() {
            var chart = nv.models[opts.type]()
              .x(function(d) { return d[opts.x] })
              .y(function(d) { return d[opts.y] })
              .width(opts.width)
              .height(opts.height)

           d3.select("#" + opts.id)
            .append('svg')
            .datum(data)
            .transition().duration(500)
            .call(chart);

           nv.utils.windowResize(chart.update);
           return chart;
          });
    };
</script>

library(rCharts)

df <- data.frame(
  Pupil = factor(c("Richy","Shyam","Nithin"), levels=c("Richy","Shyam","Nithin")), 
  Scores = c(75,93,62)
)

# without formula interface
nPlot(
  x = "Pupil", y = "Scores", data = df,
  type = "discreteBarChart", width = 600
)

# with formula interface
nPlot(Scores~Pupil, data = df, type = "discreteBarChart", width = 600)