Tag: 阴谋

vba中的date和数值的散点图

为了存储date而不考虑系统格式，我把它作为string，因为excel将被不同系统上的许多用户使用。 以下是代码： Range("Z:Z").NumberFormat = "@" Range("AC:AC").NumberFormat = "@" Range("AF:AF").NumberFormat = "@" dateArr = Array("4/1/2016", "4/15/2016", "5/1/2016", "5/15/2016", "6/1/2016", "6/15/2016", "7/1/2016", "7/15/2016", "8/1/2016", "8/15/2016", "9/1/2016", "9/15/2016", "10/1/2016", "10/15/2016", "11/1/2016", "11/15/2016", "12/1/2016", "12/15/2016") For i = 2 To UBound(dateArr) ActiveSheet.Cells(i, 26).Value = Format(dateArr(i – 2), "yyyy/mm/dd") Next 但我需要为它绘制散点图，所以我再次将其更改为date格式，如下所示： Columns("Z:Z").Select Selection.NumberFormat = "yyyy/mm/dd" 而当我绘制散点图时，并没有正确绘制它。 ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterLines […]

在Python中select正确的值

总体概述： 我正在创build一个大型数据集的graphics，但是我已经创build了一个示例文本文档，以便更容易地克服这些问题。 数据来自Excel文档，将被保存为CSV。 问题： 我能够编译数据，它将图表（见下文）然而，我怎么拉数据将不适用于所有不同的Excel表格，我将要脱离。 更详细的问题： 正在从数字26和31（参见图片和代码）的Excel表中拉出Y值（标记的“值”和“值1”）。 这是一个问题，因为值26和31对于每个图都不相同。 让我们看看这个更有意义。 这是我的代码 import pandas as pd import matplotlib.pyplot as plt pd.read_csv('CSV_GM_NB_Test.csv').T.to_csv('GM_NB_Transpose_Test.csv,header=False) df = pd.read_csv('GM_NB_Transpose_Test.csv', skiprows = 2) DID = df['SN'] Value = df['26'] Value1 = df['31'] x= (DID[16:25]) y= (Value[16:25]) y1= (Value1[16:25]) """ print(x,y) print(x,y1) """ plt.plot(x.astype(int), y.astype(int)) plt.plot(x.astype(int), y1.astype(int)) plt.show() 输出： 数据集： 在下面的评论中，你会发现0bin到我的数据集这是因为我没有足够的声望发布两个链接。 正如你可以从数据集看到的 X- DID […]

在excel中使用vba绘制多个表格

你会看到我是一个初学者的Excel编码器。 我想在Excel中制作线图，每个图都有多个系列。 例如，第一个graphics需要标记为“电压”，并且需要在第二行的电压栏中列出数据。 图表的数量取决于在这种情况下，我有4个电池监视器的数量。 我很抱歉，我不知道如何在这里上传文件。 但是具有数据的表格由10列分隔开来，因此它们并不相邻。 Sub test() Dim Chart1 As ChartObject Set Chart1 = Sheets("Sheet1").ChartObjects.Add(52, 0, 1000, 500) With Chart1.Chart .SetSourceData Source:=Sheets("Sheet1").Range("H3:H2502") .ChartWizard Title:="Voltage", HasLegend:=True, CategoryTitle:="Time (s)", ValueTitle:="Voltage", Gallery:=xlLineStacked '.Legend = "Battery 1" This does not work End With End Sub 我如何控制图例文字？ 我怎样才能添加另一组数据到这个图表？ 非常感谢您的参与

如何在相应的图表上绘制图表？

我正在从多个电子表格中获取数据，并将它们绘制在图表上。 我希望Spreadsheet1的数据也可以在Spreadsheet1上绘制一个图表。 目前，我的代码绘制了最后一张纸上的所有graphics，所以图1,2,3等的graphics都绘制在最后一张纸上。 我不确定如何解决这个问题，因为我是VBA新手。 我logging了一个macros来获取代码来绘制数据。 这里是我的密码： For j = 1 To size 'creates chart ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select ActiveSheet.Shapes("Chart 1").IncrementLeft 696.75 ActiveSheet.Shapes("Chart 1").IncrementTop -81.75 ActiveSheet.Shapes("Chart 1").ScaleWidth 1.3333333333, msoFalse, _ msoScaleFromTopLeft ActiveSheet.Shapes("Chart 1").ScaleHeight 1.6909722222, msoFalse, _ msoScaleFromTopLeft Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False ActiveChart.SeriesCollection.NewSeries ActiveChart.FullSeriesCollection(1).Name = […]

使用Excel VBA修改标记透明度

比方说，我有下面的表格，我想做一个散点图。 XY Weight 1 0.5 12 2 0.1 23 3 0.2 36 4 0.5 27 1 0.2 4 我正在寻找一种方法来根据列中的值设置标记的透明度，以便每个点的标记都具有与其他点不同的单独透明度级别。 我想要这个的原因是分数的重量是不相等的。 一种解决方法是手动创build更多的点数（权重-1），并用适当的透明度级别来绘制它们。 另一个解决scheme是手动设置每个点的标记透明度级别。 然而，这些都是合乎逻辑的，因为点的数量真的很大！ 我已经用VBA尝试了下面的内容，但没有运气。 Sub TransparencyModifier() ' ' TransparencyModifier Macro ' ' Dim i as Integer For i = 1 to 5 ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(i).Select With Selection.Format.Fill .Transparency = Cells(i+1,3).Value/100 End With Next i End Sub […]

在Matplotlib中用plot_date制作2色散点图

我正在做一个类似于这里的学校项目的基本散点图： 如何在MatPlotLib中创build的散点图中指定不同点的不同颜色？ 唯一的区别是我的数据是按发布date的电影收入。 所以x轴是发布date，y轴是收入。 我有第三栏指出电影是中国人还是外国人，而我想根据这一点将红色和蓝色分配给散点。 我使用链接中的方法将中文分配给'r'，将外部分配给'b'。 然而，plot_date似乎不采取相同的c = colors参数。 我得到这个错误： replace（'中国'，'r'）] mpl.pyplot.plot_date（x2）'x'['国家和地区']。 （'发行date']，x2 ['总票房（百万）']，c =颜色）fig.autofmt_xdate（） ValueError：to_rgba：rgba arg无效“[0 r 1 b 2 r 3 b 4 r 5 b 6 r 7 r 8 r 9 r 10 b 11 b 12 r 13 b 14 r 15 r 16 b 17 b 18 r 19 […]

X，Y散点图与animation

我正在寻找一种在（X，Y）平面内绘制多个点的方法，并使它们每次出现（然后消失）。 我总共有大约400（x，y）个点，这是从惯性测量单元收集的位置跟踪信息。 每个数据点间隔约4毫秒（我可以改变这个间隔时间，使其更长），所以如果可能的话，我想一次显示一个点，每个点为4ms，直到出现下一个点。 最终产品应在5-6秒采样时间内显示对象的移动path。 从我的excel文件中，我有两列（一个用于X，一个用于Y），它们是400个元素（400行）。 我希望能够一次绘制一行X，Y分散信息的方法，并寻找一些代码，这些代码将逐行递增并绘制相应的散点图。 我是一个半stream利的程序员，但从未使用过MS Visual Basic。 迄今为止我发现的所有Excel解决scheme（与我的问题类似）涉及在Visual Basic中编写graphics的代码。 我认为如果有人能够帮助我解决代码问题，我可能可以做到这一点…但是如果有另一个软件可以做到这一点（免费！我在学生预算！），那么我愿意尝试多种解决scheme。 我发现这个代码已经： Sub Macro1() Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:B3"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart.Axes(xlCategory) .MinimumScale = -30 .MaximumScale = 30 .MinorUnit = 1 .MajorUnit = 5 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With […]

在R中绘制graphics并将其导出到Excel中

在我的数据中，我有多个国家，每个国家有5个产品。 我对每个组合进行了一次回归，现在我正试图在同一个图表上为每个组合绘制预测值与实际值。 我总共有10个国家，每个国家在Excel文件中都有自己的标签。 由于有5个产品，这是总共50个图表。 我想在R中绘制graphics并将它们导出到Excel中循环。 我正在使用excel.link软件包ggplot ，我遇到的问题是图表显示为Excel中的空格，或者如果R中有一些graphics – graphics显示而不是所需的graphics。 **注：我以前得到一个错误，说第一个图表“rversion找不到”，但现在我更新了我的RStudio，我不再得到这个错误。 graphics还是输出空白或反之前出现的graphics 这是一个简化的循环，类似于我的代码。 如果我手动运行循环，通过每次更改i ，一切都被导出确定。 如果我运行for loop ，则会出现以上描述的问题： require(excel.link) set.seed(124) for(i in 1:5){ # i <- 2 myseq <- seq(1,100, by=1) norm <- rnorm(100) mydata <- as.data.frame(cbind(myseq, norm)) colnames(mydata) ggplot(data = mydata, aes(x=myseq, y=norm, group=1)) + geom_line(size=1, col="blue") + ggtitle(paste("My Plot ", i)) y.plot=current.graphics() xl[a1] = […]