我正在使用以下脚本将.txt文件读入R中.出于某种原因,即使我在标题中只有21个元素,它声称我有22个.这使得读取表函数出错,因为其余的行该文件只有21项.
当我使用扫描功能时,我注意到我的标题实际上从元素2开始,而元素1是空的,就像这样.""
在我看来,问题是某些东西正在被读入第一个元素,而不应该.我不明白这一点,因为第一行是一个前面没有空格的字符串.
library(foreign)
setwd("/Library/A_Intel/")
filelist <-list.files()
#assuming tab separated values with a header
datalist = lapply(filelist, function(xx)read.table(xx, header=T, sep=";"))
#assuming the same header/columns for all files
datafr = do.call("rbind", datalist)
Run Code Online (Sandbox Code Playgroud)
谢谢!
编辑1
TIME ;POWER SOURCE ;qty MONITORS ;NUM PROCESSORS ;freq of CPU Mhz ;SCREEN SIZE ;CPU LOAD ;BATTERY LEVEL ; KEYBOARD MVT ; MOUSE MVT ;BATTERY MWH ;HARD DISK SPACE ;NUMBER PROCESSES ;RAM ;FOCUS APP ;
2010-08-09-14:57:29.423 ; AC ; 1 ; 2 ; 1600 ; 1280 : 800 …Run Code Online (Sandbox Code Playgroud) 有没有办法在仪表板中动态显示图像.图像文件的名称将链接到维度,图像文件都存储在一个目录下.
我在一些建模软件中运行了2d模拟,我从中获得了带有一组6个属性的x,y点位置的导出.我希望重新创建一个结合数据的数字,如下所示:

椭圆和背景根据属性1着色(并且这些边界当然代表模型几何,但我认为我不能复制它),等值线是属性2的轮廓,箭头字形是来自属性3(x幅度)和4(y幅度).
x,y点是我认为的三角网格的中心,看起来像这样:

我想知道如何用R重建这样的图.首先,我有不规则间隔的数据,因为它是从不规则网格导出的.那就是我被R困住的地方,只是用它来制作盒子和耳语等.
这是数据:
https
://dl.dropbox.com/u/22417033/Ellipses_noheader.txt编辑:字段:x,y,热通量(x),热通量(y),热导率,温度,gradT(x) ,gradT(y).
names(Ellipses) <- c('x','y','dfluxx','dfluxy','kxx','Temps','gradTx','gradTy')
Run Code Online (Sandbox Code Playgroud) 使用for循环显着慢,只是看起来不对.如果有人可以使用geom_abline(拦截,斜率)的其他方法,我将不胜感激.变量Coeff是一个包含所有参数的四个数据帧的列表,每个数据帧有1001行(第一个是无用的).
p <- qplot(x,y,data = data,color = I("blue"))
for (i in 1:1000){
p <- p + geom_abline(intercept = Coeff[[1]]$Intercept[i+1], slope = Coeff[[1]]$X[i+1],alpha = 0.1,size = 0.1, colour = "red")
}
for (i in 1:1000){
p <- p + geom_abline(intercept = Coeff[[3]]$Intercept[i+1], slope = Coeff[[3]]$X[i+1],alpha = 0.1,size = 0.1, colour = "yellow")
}
Run Code Online (Sandbox Code Playgroud) 
这是我的日期时间barChart.当我使用小提琴(见此处)尝试复制问题时,它按预期工作.注意:从github加载数据需要一段时间(~30秒).
以下是图表的代码:
pnlPerDaybarChart
.height(300)
.width(700)
.dimension(dims.date)
.group(groups.date.pnlSum)
.valueAccessor(function(d) {
return Math.abs(d.value);
})
.renderTitle(false)
.x(d3.time.scale().domain([minDate,maxDate]))
.xUnits(d3.time.days)
.colors(colorChoice)
.colorAccessor(function(d) {
if (+d.value>0) {
return("positive");
} else {
return("negative");
}
})
.brushOn(true)
.elasticY(true)
.margins({left: 70 ,top: 10, bottom: 30, right: 50})
.centerBar(true);
Run Code Online (Sandbox Code Playgroud)
我错过了一些明显的东西吗?如果没有,我应该开始调试的任何想法?我花了相当多的时间在这个上面,我找不到任何错误.
编辑:当我删除.xUnits指令时,我得到非常瘦的条,但沿着轴放置得很好.这让我觉得计算条形宽度有问题.我不知道如何调试那个特定的计算.如果有人知道,我会很乐意深入研究它.
EDIT2:所有元素的width属性都设置为错误的值.如果有人能指出我在图书馆计算的地方,我可以从那里拿走它.<g class="chart-body"><g class="stack _0"><rect class="bar"></rect></g></g>svgd3
EDIT3:我找到了问题的根源.条形的宽度不正确,因为当calculateBarWidth()运行一次以实例化图形时,即使调用dc.redrawAll(),它也不再运行.在我的情况下,我连续添加了大量的记录到我的crossfilter并重绘图表.新问题是'如何强制calculateBarWidth()重新运行?'
我想在 MATLAB 中绘制一条线,并以信号的灰色阴影 X% 偏差绘制。然后,我会绘制另一个信号并查看(视觉上)第二个信号有多少在灰色阴影区域之外。
我想获得帮助的任务是阴影区域:类似于下面附加的图像。

我知道类似的解决方案有errorbar,但我认为这是一个更清楚的情节想象。
例如,如果我有:
x = 0:0.1:10;
y = 1 + sin(x);
Run Code Online (Sandbox Code Playgroud)
的 5% 灰色阴影图y会是什么样子?(那个区域?)
我正在尝试使用该circlize库绘制流程图。我的代码在下面,数据集 (i75_from_flow.RData) 在这里:https ://drive.google.com/file/d/0B0hTmthiX5dpbFJFc2hfN1Zqd1k/view
library(reshape)
t1 <- cast(i75_from_flow, ORIGFIPS ~ TERMFIPS)
i75_from_flow2<- data.matrix(subset(t1, select=-c(1)))
rownames(i75_from_flow2) <- t1$ORIGFIPS
colnames(i75_from_flow2) <- colnames(i75_from_flow2)
library(circlize)
circos.par(gap.degree = 8)
chordDiagram(i75_from_flow2, grid.col= length(union(rownames(i75_from_flow2),colnames(i75_from_flow2))), directional = TRUE, annotationTrack = "grid",
preAllocateTracks = list(list(track.height = 0.05),
list(track.height = 0.05)))
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
xlim = get.cell.meta.data("xlim")
ylim = get.cell.meta.data("ylim")
sector.index = get.cell.meta.data("sector.index")
circos.text(mean(xlim), mean(ylim), sector.index, facing = "inside", niceFacing = TRUE)
}, bg.border = NA)
Run Code Online (Sandbox Code Playgroud)
当我运行上面的代码时,在代码中的chordDiagram和circos.trackPlotRegion行之后出现以下错误。
Error …Run Code Online (Sandbox Code Playgroud) 我可以用什么样的工具来显示R树的边界框,节点,叶子,就像本页所示的那样?谢谢
好吧,最近,我在GitHub上做了一个项目,到目前为止我已经取得了很好的进展,所以我想对变更日志进行可视化,项目中有2个以上的人,所以我进行了研究,发现有一个叫做Gource的东西,我找不到关于将它与git存储库一起使用的好教程,我已经尝试了YouTube视频等.但我没想出任何东西,所以希望你们可以帮助解决这个问题,假设存储库路径是: https://github.com/xxxx/yyyy
如何快速可视化R中的大型矩阵?
我有时使用大型数字矩阵(例如3000 x 3000),并且快速可视化它们是一个非常有用的质量控制步骤.这在我以前选择的语言Matlab中非常简单快捷.例如,显示1000x1000矩阵需要0.5秒:
rand_matrix = rand(1000,1000);
tic
imagesc(rand_matrix)
toc
>> Elapsed time is 0.463903 seconds.
Run Code Online (Sandbox Code Playgroud)
我想在R中具有相同的能力,但遗憾的是,在R中,可视化矩阵似乎非常缓慢.例如,使用image.plot()相同的随机矩阵需要10秒以上才能显示:
require(tictoc)
require(image.plot)
mm = 1000
nn = 1000
rand.matrix = matrix(runif(mm*nn), ncol=mm, nrow=nn)
tic("Visualizing matrix")
image.plot(rand.matrix)
toc()
> Visualizing matrix: 11.744 sec elapsed
Run Code Online (Sandbox Code Playgroud)
随着矩阵变大,问题变得更糟.例如,与Matlab中的秒数相比,3000x3000矩阵在R中可视化需要几分钟.这显然不适用于数据探索.我尝试过ggplot,而熔化+ geom_raster()仍然需要一分钟.
我究竟做错了什么?有没有一种快速的方法可视化R中的矩阵?一个理想的解决方案需要一两行.
visualization ×10
r ×5
matlab ×2
plot ×2
bounding-box ×1
circlize ×1
d3.js ×1
dc.js ×1
geometry ×1
geospatial ×1
ggplot2 ×1
git ×1
github ×1
gource ×1
graphics ×1
image ×1
javascript ×1
matrix ×1
r-tree ×1
tableau-api ×1
tree ×1