Question

我尝试使用Haskell-Charts（http://hackage.haskell.org/package/Chart）生成一些图表。它工作正常，我得到了一个很好的图

我唯一的问题＆＃34;是左边的数字，有点难读。有没有办法可以提供一个函数，在显示它们之前转换这些数字？我可以在绘图之前转换数字，但我会失去精确度。我一直在看文档，但如果它存在，我就不会看到它。

由于

编辑：这是代码。

import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Axis.LocalTime
import Graphics.Rendering.Chart.Backend.Diagrams
import Data.Time.LocalTime

main = do
  -- Get datas
  toFile def "test.svg" $ do
    layout_title .= "Active mem"
    plot (line "Active" $ [L.map (\v -> ((utcToLocalTime utc $ time v) :: LocalTime, (fromIntegral $ value v) :: Int)) $ V.toList q])

不幸的是，我从数据库中获取数据，但我无法公开访问它。但是一个带有大数字的[（LocalTime，Int）]列表应该会给你类似的东西。我使用的是Diagrams后端btw

Answer 1

深入研究source of the Chart，也许我找到了解决方案。

这是工作代码。您可以将func更改为您喜欢的任何内容

当实际数据为10,20,30,40

时，会显示y轴100,200,300,400的标签

import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Diagrams

func :: Int -> String
func x = show $ x `quot` 10

vals :: [(Int,Int)]
vals = [(1,100),(2,200),(3,300),(4,400)]
main = do
  toFile def "test.svg" $ do
    layout_title .= "test"
    layout_y_axis . laxis_generate .= autoScaledIntAxis(LinearAxisParams{
        _la_labelf = map func,
        _la_nLabels = 5,
        _la_nTicks = 10
        })
    plot $ points "Score" vals

Haskell图表中人类可读的数字

1 个答案: