1

我使用雅虎财经数据来比较两家公司的收盘价：

#load "C:\Users\Nick\Documents\Visual Studio 2013\packages\FSharp.Charting.0.90.9\FSharp.Charting.fsx"
open FSharp.Data
open FSharp.Charting
open System
open System.Drawing
open System.Windows.Forms.DataVisualization.Charting

type Stocks = CsvProvider<"http://ichart.finance.yahoo.com/table.csv?s=FB">

let plotprice nasdaqcode =
    let url = "http://ichart.finance.yahoo.com/table.csv?s=" + nasdaqcode
    let company = Stocks.Load(url)
    let companyPrices = 
        [ for r in company.Rows do
            if r.Date > DateTime(2010, 1, 1) (* && r.Date < DateTime(2015, 1, 1) *) then
        yield r.Date, r.Close ]

    Chart.Line(companyPrices,Name=nasdaqcode) 
    |> Chart.WithLegend(Enabled=true,Docking=ChartTypes.Docking.Bottom, InsideArea=false)

Chart.Combine ([plotprice "VLKPY";plotprice "TM"])
|> Chart.WithXAxis(LabelStyle = ChartTypes.LabelStyle(Angle = -45),MajorGrid=ChartTypes.Grid(Enabled=true, LineColor=Color.LightGray))
|> Chart.WithYAxis(MajorGrid=ChartTypes.Grid(Enabled=true, LineColor=Color.LightGray))

这就是我得到的：

VM和丰田收盘价

问题：

如图所示，只有两条网格线（2012/1/1 和 2014/1/1 年）。我想在 X 轴上有一个更精细的网格：从 2010 年到 2015 年每年一条线。可以这样设置网格吗？

4

1 回答 1

3

您可以使用类型的Interval参数Grid：

Chart.Combine ([plotprice "VLKPY";plotprice "TM"])
|> Chart.WithXAxis
    ( MajorGrid = ChartTypes.Grid( Enabled=true, 
                                   LineColor=Color.LightGray, 
                                   Interval=365.0 ) )

您还IntervalOffsetType可以将参数设置为DateTimeIntervalType.Years，但这似乎对我不起作用 - 所以看起来 F# Charting 目前只适用于几天。

如果您可以验证这一点，提交问题，或者甚至考虑为 F# Charting 做出贡献以解决此问题，那就太好了 :-)

于 2015-01-23T11:37:06.287 回答