Tag: 情节

Exceldate和R？: 我有一个随机创build的短数据框，在获取大数据框之前进行练习。我使用与原始数据相同的variables，但使用的方式更短。我遇到的问题是，Excel首先需要一个月的date，所以R是困惑的，它首先是2015年10月1日。当它应该是最后的时候。我能做些什么R正确地命令date？另外我想例如计算一个月内我做的总金额（数据$总数）。那会是什么脚本？如果我已经在这里，我可以一石二鸟。我知道已经有一个答案了，但是我看到的答案是使用Direct.labels包，它完全混淆了整个graphics。你会build议如何防止标签越过边界？ DPUT（） dput(Data) structure(list(JOB = structure(c(2L, 3L, 1L, 3L, 3L), .Label = c("JAGER", "PLAY", "RUGBY"), class = "factor"), AGENCY = structure(c(1L, 1L, 2L, 1L, 1L), .Label = c("LONDON", "WILHEL"), class = "factor"), DATE = structure(c(4L, 5L, 1L, 2L, 3L), .Label = c("10/1/2015", "10/3/2015", "10/9/2015", "9/24/2015", "9/26/2015"), […]

VBA提取系列收集值: 我有一个图表，想要在两点之间画一个箭头。这两点来自两个不同的系列，但具有相同的x值。为了做到这一点，我觉得我必须知道绘图点的y值，以及y轴的最小和最大尺度。由此，我应该能够绘制一个箭头。我的问题是如何获得y值？我不想让他们摆脱桌面，因为我正在迭代很多图表。我会认为我会做这样的事情： Sub Tester() Dim sht As Worksheet Dim CurrentSheet As Worksheet Dim cht As ChartObject Dim PA_w, PA_h, PA_l, PA_t, min_x, min_y, max_x, max_y, _ x_node1, x_node2, y_node1, y_node2 As Double Dim Npts, i As Integer Dim s As Shape Application.ScreenUpdating = False Application.EnableEvents = False Set CurrentSheet = […]

绘制分类数据是是否: 我正试图绘制两个类别，分别是“是”和“否”。我不能在Excel中做到这一点。有没有更好的方法呢？一个例子如下所示： response1 response 2 type 1 yes yes type 2 no yes 先谢谢你

使用MS Excel中的最后10个值绘制图表: 所以我得到了带有包含一些数据的表格的Sheet1。为了简化，假设有一个包含一些数据的列“x”和一些包含数据的列“y”。每隔一段时间，将更多的值手动添加到表中。在Sheet2上，我需要Excel自动绘制图表，只使用表格中的最后10个值。所以当添加更多的值时，graphics会自动更改为新的最后10个值。这可能吗？此外，假设有第三列“z”始终是一个常数值（例如在图中显示某种最大的“y”）。如何让Excel自动填充单元格的数量，当相应的'x'和'y'单元格填充？我知道我可以手动填写'z'列，但是我怀疑这会搞砸了最后10个值。我正在使用MS Excel 2013。非常感谢你！

单击绘图轴 – 输出轴值到单元格: 我想知道如果有人知道在Excel中使用VBA或任何其他方式的Excel中的方式：交互地点击在Excel中绘制的graphics的x轴，并且将x轴值输出到单元格。有人有主意吗？我很难过

图纸/范围数组循环制作graphics: 一边抱歉，我的问题已经变得相当的好奇，至今我还找不到任何答案。我的程序中的一部分旨在search图表，以查看一个系列是否已经存在，如果不存在，则创build它。截至目前该scheme是好的，花花公子。但是，对于8个不同的图表，代码不仅时间长，而且可能效率更低。所以，我决定尝试循环访问一个数组。这是一个graphics块的样子：编辑：我没有具体说，但Z是一张表的名称和序列的名称，如前面定义的代码，所以这不是一个问题。 Sheets("A").Select Count = ActiveChart.SeriesCollection.Count Fail = 0 For c = 1 To Count If ActiveChart.SeriesCollection(c).Name = Z Then With ActiveChart.SeriesCollection(c) .Values = Worksheets(Z).Range("AJ5:AJ45") .XValues = Worksheets(Z).Range("AP5:AP45") End With Exit For Fail = Fail – 1 End If Fail = Fail + 1 Next c If Fail = Count […]

用dynamic数量的数据行绘制折线图: 我想根据重量跟踪表上的dynamic行数在汇总表上绘制折线图（即每天添加另一行数据）我试图让我的线图看起来完全像例子（相同的颜色等）。现在，我的代码编译，但graphics不出现在任何地方。以下是电子表格https://drive.google.com/file/d/0B1GLuBx-ROnhSnJpdDRFTFVUbDA/edit?usp=sharing Private Sub WeightTrackingChart() 'variable declaration Dim i As Long Dim LastRow As Long Dim WTchart As Shape Dim ws As Worksheet 'Find the last used row LastRow = Sheets("Weight Tracking").Range("B3").End(xlUp).Row 'Looping from fifth row till last row which has the data For i = 6 To LastRow 'Prints chart to Summary […]

在Excel中的一个文本框中引用多个单元格？: Excel 2010中的图表上有一个文本框，类似于下面的格式： Some Value X Other Value Y Third Value Z 其中“有价值”，“其他价值”和“第三价值”全部是文字，X，Y，Z是数字。目前，这本教材全是手写的文字。我希望有X，Y，Z是引用单元格中的值存储，而不是必须input英寸什么是最好的方式来完成所有的文字在那里有X，Y，Z是参考带有值的单元格？我最好的意思是最小化文本框。

为每个x轴值创build具有多个Y轴值的散点图: 我有excel数据，看起来像这样 – [![PROBE_DESIGN_ID POSITION A1801_Med A1802_Med A1803_Med A1804_Med A1805_Med 621931_0250_0258 1 47.75 51.14 95.05 49.37 52.87 621931_0251_0031 5 41.96 42.97 52.65 42.34 43.13 621931_0233_0683 9 42.57 51.98 64.63 53.13 52.75 621931_0007_0553 13 57.65 50.65 71.4 53.47 54.03 621931_0011_0143 17 304.7 540.63 648.03 181.46 209.57 621931_0100_0644 21 424.19 163.48 1790.23 241.24 209.18 621931_0353_0701 25 330.74 35023.05 […]

Excel绘图上的垂直轴延伸超出它应该的位置？: 我在Excel（Office 365 ProPlus，版本1705，生成8201.2200）中绘制某些内容时遇到了这个有趣的“function”。情节如下所示，其他轴被删除。垂直轴应该从0.0延伸到1.0E-12 ，并且就垂直而言。有一个额外的价值1.2E-13似乎漂浮在那里没有任何理由。如果将垂直轴边界设置为“Auto”，也会发生同样的情况。有趣的是，如果我删除橙色曲线（其最大值在当前垂直轴内），则垂直轴值似乎正确alignment到其正确的位置：这是怎么回事，我该如何解决这个错误？这是一个错误，或者我有一个盒子检查，我不应该检查？