我正在尝试绘制带有y轴的图,代码非常简单:
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Outlook.Namespace
Dim targetFolder As Outlook.MAPIFolder
Dim firstFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set firstFolder = OutlookNamespace.Folders("your shared mailbox name")
Set targetFolder = firstFolder.Folders("Inbox")
For spot = 1 To 500
If TypeOf targetFolder.Items(spot) Is MailItem Then
Set olMail = targetFolder.Items(spot)
If olMail.ReceivedTime > .... Then
......
End If
End If
Next
但是,我的数据包含很大的波动,使得左侧部分几乎可以忽略不计,因此我设置了x限制来截断这些“噪声”。原始图和截断图如下所示。
我的期望图就像下面的图(花了我一分钟找到最佳的y_lims)。 我发现了一些类似的问题,如何自动缩放y轴,在我的情况下它们的答案不起作用:
fig = plt.figure()
ax = fig.add_subplot(111)
ax_1 = ax.twinx()
ax.plot(x, y)
ax_1.plot(x_1, y_1)
plt.show()
| ax.autoscale(True, 'y')
| ax.autoscale_view()
因为(也许)上限由属于“噪声”的ax.relim()
决定,是否有任何方法可以根据图中显示的数据限制自动缩放y轴?