我在R中有一个非常基本的情节,我想解决两个问题.以下是生成图表的代码:
plot(o,n,bty="n",pch=21,cex=1.5,bg="gray",xlab="y",ylab="x",lwd=2)
Run Code Online (Sandbox Code Playgroud)
而且,这是情节

我试图修复这个情节有两个不需要的行为.而且我不知道如何做任何一个(我也不明白为什么R不会做这些事情......)
我在说这张照片:
![]()
问题:
这是R,不是Matlab对吗?在页面下方,它表示它是用R制作的....
我怎样才能做到这一点?我的意思是,如何用这个先进的绿色表面和这个网格创建这样的三维散点图?我现在如何制作简单的散点图和三维散点图,但是如何创建这样的高级图片呢?这包是哪个?
我希望将它包含在一张纸张中,此图片应自动旋转.我知道如何将它包含在我的tex发行版中,但因此我需要单个png.所以例如1000张我制作动画的单张照片.但我怎样才能得到R?我需要旋转它,然后将每个小旋转保存为图形文件.
非常感谢你的帮助,我最大的问题是创建这个图形(包?)以及如何使它旋转(r代码?)
我必须做一些天真的事情,但我无法在图表中渲染我的数据.
这是我的示例数据:
var data = [
{
date: '02-12-2013',
val: 13,
}
{
date: '02-13-2013',
val: 6,
}
...
]
Run Code Online (Sandbox Code Playgroud)
这是我的代码:
var cf = crossfilter(data);
var dim = cf.dimension(function(d){ return d.val });
var group = dim.group();
var barchart = dc.barChart('#container');
barchart.width(850)
.height(250)
.margins({top: 10, right: 50, bottom: 30, left: 40})
.dimension(dim)
.group(group)
.gap(1)
.x(d3.time.scale()
.domain([new Date(data[0].date),
new Date(data[data.length-1].date)]))
.xUnits(d3.time.day)
.centerBar(true)
.renderHorizontalGridLines(true)
.renderVerticalGridLines(true)
.render();
Run Code Online (Sandbox Code Playgroud)
我在这里错过了什么?这是图表的屏幕截图:

我有一个日期数据系列,数据点之间的时间间隔不均匀.我希望系列中的每个数据点都有一个标签.任何想法如何实现它?
小提琴链接在这里
我试图在R ^ 3中在立方体上可视化3个参数的函数,以了解函数的平滑性.下面的示例代码中显示了此问题的一个示例
%pylab
from mpl_toolkits.mplot3d import Axes3D
import itertools
x = np.linspace(0,10,50)
y = np.linspace(0,15,50)
z = np.linspace(0,8,50)
points = []
for element in itertools.product(x, y, z):
points.append(element)
def f(vals):
return np.cos(vals[0]) + np.sin(vals[1]) + vals[2]**0.5
fxyz = map(f, points)
xi, yi, zi = zip(*points)
fig = plt.figure(figsize=(12, 8))
ax = fig.add_subplot(111, projection='3d')
ax.scatter(xi, yi, zi, c=fxyz, alpha=0.5)
plt.show()
Run Code Online (Sandbox Code Playgroud)

这种方法的问题在于立方体内部无法可视化.有没有更好的方法在一个密集的R ^ 3子集上绘制函数?
我使用force-layouts对节点进行D3可视化,如下所示.一些线相互交叉,这使得可视化更难以理解.如何确保线条不重叠?
我已经尝试修改力布局(电荷,摩擦力,重力)的参数,但没有任何运气.目前的代码如下.也许我需要做一些其他事情而不是修改force-layout来实现结果?
force = d3.layout.force()
.nodes(data_nodes)
.links(data_links)
.charge(-3000)0
.friction(0.6)
.gravity(0.6)
.size([width,height])
.start();
Run Code Online (Sandbox Code Playgroud)

我正在研究一个模拟失踪船只移动的项目.我使用以下代码制作了分布图:
library("ggplot2")
a <- rnorm(1000, 30.2, 2)
b <- rnorm(1000, 10, 5)
y <- (x + a + b) * 0.6
df <- data.frame(x,y)
p <- ggplot(df,aes(x=x,y=y)) +
ggtitle("A Priori Map") + xlab("Longtitude") + ylab("Latitude") +
scale_fill_gradientn(colors = topo.colors(10))
p + stat_binhex(show.legend = T, bins = 20)
Run Code Online (Sandbox Code Playgroud)
这会生成如下地图:
但是,我想用一个点来显示实际的计数,而不是使用颜色显示计数的数量.因此,如果程序"落在"特定点3次,它将显示"3".
如何在R中完成?
在R中,使用包rgl,我想添加点的阴影plot3d(),就像下图中一样.
我已经添加了底部网格grid3d(),但仍然没有关于如何添加阴影的线索.如果我绘制相同的点,将第3轴值更改为其最小值(图像中的-100),则绘图区域会自动增加,从而在点和网格之间留下间隙.有没有更好的方法呢?
我认为这个问题很明显,但这是一个示例代码:
library(rgl)
df <- data.frame(x=rnorm(100),
y=rnorm(100),
z=rnorm(100))
plot3d(df)
grid3d('z')
Run Code Online (Sandbox Code Playgroud) 我试图绘制经验累积分布函数和理论累积分布函数.这是我的R代码:
x=rgamma(40, 2, 1/3)
plot(ecdf(x))
lines(x, pgamma(x, shape = 2, scale = 3), type="l", col = "red")
Run Code Online (Sandbox Code Playgroud)
r ×5
d3.js ×2
javascript ×2
rgl ×2
3d ×1
axiis ×1
charts ×1
crossfilter ×1
dc.js ×1
dimple.js ×1
force-layout ×1
ggplot2 ×1
matplotlib ×1
mayavi ×1
python ×1
rotation ×1