你们中的一些人可能已经看过我关于这个主题的博客文章,在我想要帮助一个朋友在图表上生成半满的圆圈之后我编写了以下代码:
TestUnicode <- function(start="25a0", end="25ff", ...)
{
nstart <- as.hexmode(start)
nend <- as.hexmode(end)
r <- nstart:nend
s <- ceiling(sqrt(length(r)))
par(pty="s")
plot(c(-1,(s)), c(-1,(s)), type="n", xlab="", ylab="",
xaxs="i", yaxs="i")
grid(s+1, s+1, lty=1)
for(i in seq(r)) {
try(points(i%%s, i%/%s, pch=-1*r[i],...))
}
}
TestUnicode(9500,9900)
Run Code Online (Sandbox Code Playgroud)
这是有效的(即产生一个几乎完整的酷dingbatty符号网格):
它没有不同程度(即产生部分或完全填充点或空矩形的网格),无论是静默还是警告:
例如,尝试所有可用的PDF字体系列:
flist <- c("AvantGarde", "Bookman","Courier", "Helvetica", "Helvetica-Narrow",
"NewCenturySchoolbook", "Palatino", "Times","URWGothic",
"URWBookman", "NimbusMon", "NimbusSan", "NimbusSanCond",
"CenturySch", "URWPalladio","NimbusRom")
for (f in flist) {
fn <- paste("utest_",f,".pdf",sep="")
pdf(fn,family=f)
TestUnicode()
title(main=f) …Run Code Online (Sandbox Code Playgroud) 希望创建有趣的视频过渡(灰度).
给定代表闭合对称形状的方程,绘制轮廓并同心地将形状朝向其中心着色.
考虑以下等式:
x = 16 * sin(t)^3
y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)
t = [0:2 * pi]
Run Code Online (Sandbox Code Playgroud)
绘制时:

当阴影时,它会像(没有显示完全阴影,但足以表明这个想法):

请注意,阴影在外部是最暗的(例如,#000000 RGB十六进制),然后在填充到中心时变亮.中心将是白色(例如,#FFFFFFF)点.
谢谢!
我们将很快开始研究TeX到MathML转换器。因此,我想知道哪些浏览器(从哪个版本开始)正式支持MathML?谢谢
我想在 ggplot2 中绘制参数曲线。当只绘制点时,排序无关紧要,它可以正常工作:
library(ggplot2)
phi = seq(0, 2*pi, length.out=100)
df1 = data.frame(x=(phi+3)*cos(phi), y=(phi+3)*sin(phi))
ggplot(data=df1, aes(x, y)) + geom_point()
Run Code Online (Sandbox Code Playgroud)
不幸的是,ggplot2 对点进行了隐式排序,因此当我尝试绘制一条线时
ggplot(data=df1, aes(x, y)) + geom_line()
Run Code Online (Sandbox Code Playgroud)
我得到
这不是我想要的。这些点的连接顺序应与它们在数据框中的顺序相同。有没有办法在 ggplot2 中做到这一点?
(我阅读了Plot a heart in R 中的答案,但我的问题特别是关于 ggplot2 并且使用极坐标不是一种选择)。
我找到了一个Matlab脚本来生成心形的散点图,但是,我想在R中绘制这个图.
http://scriptdemo.blogspot.co.at/2013/02/show-normal-random-heart.html
有人可以帮我解释或转换代码,以便我可以在R中使用它吗?
菲利普,提前谢谢