Tag: 分散

Excel VBA图表生成

我对VBA相当陌生，我试图根据以下示例数据实现某种types的图表： https ： //docs.google.com/spreadsheet/pub？key = 0AjZu7FPYRXsjdEJMLTN2MTZhUldpNnhYeW0wNF8taFE&output = html 我试图使用macroslogging器，但我没有任何运气得到它按要求工作。 我想有一个散点图，用线条和标记，图表的X值等于所提供的date，左边的Y轴是从0到4的范围（其间的步距等于1）还有一个第二个y轴，其中最大值是数据中显示的最大值（在这种情况下是45）。 另外，还有什么方法来命名“Series1”，“Series2”等以外的系列？ 最后我会减less系列的数量（可能是最多六个）。 反正任何帮助将不胜感激！ 编辑：这是macroslogging器提供的代码： ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterLines ActiveChart.SetSourceData Source:=Range("TimelineGenerator!$C$1:$W$11") ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MaximumScale = 4 ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MajorUnit = 1 但是当我执行这个通过vba生成我的graphics时，它的date是一系列的，而不是图表的xValues。

添加散点图数据标签如果XValue>值

我有一个100 +系列散点图，我想添加一些数据标签的水平值大于垂直值的系列 – 即XValue>价值。 我使用下面的代码将数据标签添加到所有系列： Dim mySeries As Series Dim seriesCol As SeriesCollection Dim i As Integer Set seriesCol = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection For Each mySeries In seriesCol Set mySeries = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(j) With mySeries .ApplyDataLabels .DataLabels.ShowSeriesName = True .DataLabels.ShowValue = False .DataLabels.Font.Size = 6 End With j = j + 1 Next 我会假设我会在“With”命令之前添加一个“If”命令，如下所示： If ActiveSheet.ChartObjects("Chart […]

如何在excel中为每个x值build立一个散点图

我不知道这里是最好的地方，但我已经将我的程序性能数据汇总在一个excel文件中，我想要构build一个散点图。 对于每个x值，我有6个y值，我希望我的图包含这6个x的平均值。 有没有办法在Excel中做到这一点？ 例如：我有 XY 1 0.2 1 0 1 0 1 0.8 1 1.4 1 0 2 0.2 2 1.2 2 1 2 2.2 2 0 2 2.2 3 0.8 3 1.6 3 0 3 3.6 3 1.2 3 0.6 对于每个x我想我的图包含平均y。 谢谢

Excel，如何创build忽略空白单元格的dynamic散点图

正如标题所说，我想创build一个忽略空白单元格的dynamic散点图。 例如： COLUMN A 1000 2000 501 700 1000 我想要的结果是： http://animenod.altervista.org/Immagine.png A列包含很多值（甚至是空白），它们通过公式插入，我希望当我添加一个数据时，图表将更新而不会有任何跳转或零，如图所示。 提前致谢。 法比奥

Excel图表：用条形图叠加散点图

我试图创build一个组合的散点图和“条形图” – 条形图可以扩展图表的整个高度，但是它们的宽度会有所不同（我有一个X轴开始点和结束点的表格）。 这是一个模拟： http : //imgur.com/EHzv5YB 你认为这在Excel中是可行的吗？ 我发现了一些关于如何覆盖多个图types的链接，但没有涉及可变宽度阴影区的链接，如示例中所示。 真的很感激任何帮助。 谢谢！

在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 […]

使用VBScript在Excel中创build一个散点图

我正在尝试使用VBScript来创build与以下数据分散： x轴：A1到F1，y轴：A2到F2 我到目前为止发现的代码是： Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Cells(1,1) = 80 objWorksheet.Cells(1,2) = 82 objWorksheet.Cells(1,3) = 85 objWorksheet.Cells(1,4) = 91 objWorksheet.Cells(1,5) = 178 objWorksheet.Cells(1,6) = 91 objWorksheet.Cells(2,1) = 5 objWorksheet.Cells(2,2) = 7 objWorksheet.Cells(2,3) = 8 objWorksheet.Cells(2,4) = 9 objWorksheet.Cells(2,5) = 10 objWorksheet.Cells(2,6) = 11 Set […]

改变scatterplot vba excel中特定点的颜色

我想改变散点图左上angular的点的颜色。 我写了一个macros，没有发生错误，但颜色没有改变：/ Sub Kolorowanie() ActiveSheet.ChartObjects("Chart 1").Activate a = ActiveChart.SeriesCollection(1).Values b = ActiveChart.SeriesCollection(1).XValues For i = LBound(a) To UBound(a) If a(i) < 0 And b(i) > 0 Then ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(i).Select With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Solid End With Else End If Next i End Sub 任何想法，为什么它不工作？

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 […]