为了访问我的服务器，我不得不使用没有 X 窗口的旧文本终端应用程序。我要做的最好的事情是emacs/ESS。
通常，我希望制作诸如直方图和散点图之类的基本图，而不必费力地将文件传输到具有图形显示的计算机。
是否有基于文本终端的 R 图形库？
Eric Brown
问问题
3746 次
1 回答
31
有很多事情可以做一些事情。在stem默认的 R 中有这个 scatter plot 函数，但最重要的是txtplot，CRAN 上有一个包，它可以绘制散点图、箱线图、条形图、密度迹线、acfs和曲线图（就像curve函数......有点）。
我只是偶尔需要它一次——但如果我想像有时需要的那样用纯文本表达一个图形的粗略概念，它就是救命稻草。
过去，我写了一小段 R 代码，可以在很短的时间内制作出计数样式的 ascii 图形（例如横向条形图或用符号替换数字的茎叶图，这解决了我遇到的问题） -但我没有保留它，因为 stem 主要涵盖该领域。
当然，“table”工具会产生 ascii 输出，并且可以被操纵来做一些有趣/有用的半图形化的事情。
还有一个包可ascii用于以与 Sweave 类似的方式将各种 R 对象呈现为 ascii 形式 - 便于格式化表格等。只是将表格格式化为 ascii 并不是真正的用途，但您仍然可以通过一些工作和正确的输出格式来使用它。
txtplot 的示例输出：
散点图：
> with(cars,txtplot(speed,dist))
+----+-----------+------------+-----------+-----------+--+
120 + * +
| |
100 + +
| * * |
80 + * * +
| * * * |
60 + * * +
| * * * * * |
40 + * * * * * +
| * * * * * * * |
20 + * * * * * * * +
| * * * * |
| * * * |
0 +----+-----------+------------+-----------+-----------+--+
5 10 15 20 25
acf 图：
> txtacf(ldeaths)
+-+--------------+--------------+--------------+--------+
1 + * +
| * |
| * * * * * |
0.5 + * * * * * +
| * * * * * * * * |
| * * * * * * * * |
| * * * * * * * * |
0 + * * * * * * * * * * * * * * * * * * * * * +
| * * * * * * * * * * |
| * * * * * * * * * * |
| * * * * * * * * * |
-0.5 + * * * * * * +
| * * * * |
+-+--------------+--------------+--------------+--------+
0 0.5 1 1.5
密度迹线：
> txtdensity(rnorm(100,m=5,s=.1))
+------+----------+----------+----------+----------+-------+
| ***** |
4 + ** *** +
| * *** |
| ** *** |
3 + ** *** +
| *** ** |
| ***** ** |
2 + *** ** +
| *** ** |
| ** ** |
1 + ** *** +
| *** ****** |
| ******** *** |
+------+----------+----------+----------+----------+-------+
4.8 4.9 5 5.1 5.2
箱形图：
> vc <- ToothGrowth[,2]=="VC"
> oj <- ToothGrowth[,2]=="OJ"
> txtboxplot(ToothGrowth[vc,1],ToothGrowth[oj,1])
5 10 15 20 25 30 35
|----+-------+--------+--------+--------+--------+-------+--|
+--------+-----------+
1 -------------| | |------------------
+--------+-----------+
+------------+----+
2 -------------| | |---------
+------------+----+
Legend: 1=ToothGrowth[vc, 1], 2=ToothGrowth[oj, 1]
曲线图：
> txtcurve(sin(pi*x),from=0,to=2)
+--+-----------+------------+------------+-----------+--+
1 + ********* +
| *** ** |
| ** ** |
0.5 + ** ** +
| ** ** |
| * ** |
0 + * ** * +
| * * |
| ** ** |
-0.5 + *** ** +
| ** ** |
| ** *** |
-1 + ********* +
+--+-----------+------------+------------+-----------+--+
0 0.5 1 1.5 2
条形图：
> txtbarchart(as.factor(res),pch="|")
+--+------------+------------+------------+------------+--+
50 + | +
| | |
40 + | +
| | |
30 + | | +
| | | |
| | | |
20 + | | | +
| | | | |
10 + | | | +
| | | | |
0 + | | | +
+--+------------+------------+------------+------------+--+
1 1.5 2 2.5 3
Legend: 1=A, 2=B, 3=C
stem从默认 R 图形中添加函数：
> stem(log(islands,10))
The decimal point is at the |
1 | 1111112222233444
1 | 5555556666667899999
2 | 3344
2 | 59
3 |
3 | 5678
4 | 012
你有很多报道。
于 2013-02-07T02:52:30.153 回答