组件:

自定义组件：

函数color_scale_fun(XX的minColorV,XX的maxColorV,XX的minColor,XX的maxColor)

函数linear_scale_fun(XX的minV,XX的maxV,XX的minMapV,XX的maxMapV)

函数ordinal_scale_fun(XX的values,XX的minVpos,XX的maxVpos)

'-2,-1,0,1,2'

函数set_fun(输入的数据,data1,{name},list)

函数split_fun(XX的values,en_dou)

XX的scalfun(单元数据[{column}])

-XX的scalfun(单元数据[{column}])

函数numlist(XX的minV,XX的maxV,XX的step)

函数min_fun(输入的数据,data1,{colorCol})

单元号*XX的unitHeight+90

函数divide_list(输入的数据[data1],{nameK})

pic的color.list[单元号]

pic的color.list[函数index_split_fun(XX的gnames,单元数据[{g}],en_dou)]

函数min_keys_fun(输入的数据[data1], group1的vkeys)

函数default_range_fun(xx的allMin,xx的allMax)

函数dic2list_fun(单元数据, {valueCols})

函数range_map([60],[pic的color.list[0],pic的color.list[1]],[pic的color.list[1]])

函数angle_radius_posx(group2的angScalf(单元数据),group2的r,0)

函数rotate((单元号+1)*group1的unitAngle*180/3.14,text2的x,text2的y)

函数set_cols(输入的数据[data1],heatmapH1_1的typesCols)

NgplotApiKey 更换 NgplotApiKey用于身份认证，请妥善保管

import requests
import json

def NgplotApiFun(ngplotPostData,svgOutName):
    response = requests.post('https://bioinforw.com/ldm/ngplotApiSim/', data={'data':json.dumps(ngplotPostData)})
    if response.status_code == 200:
        response_json = response.json()
        if response_json['code'] == 200:
            with open(svgOutName+'.svg', 'w') as fw:
                fw.write(response_json['svg'])
        else:
            print(response_json['msg'])

##Test:

ngplotPostData = {
    'account': '你的账号', 
    'ngplotApiKey':  '你的ngplotApiKey', #
    'template' : '6627b1edd0977e6439d4a203', #画图模版编号
    'data' : {'data1':'sample\tv\na\t10\n'},
    'arg' : {
        'nameCol':'sample',
        'valueCol' : 'v'
        #'xxx' : 'xxx',
        #'xxx' : 'xxx',

    }
}

NgplotApiFun(ngplotPostData,'test')
                    

library(httr)
library(jsonlite)

NgplotApiFun <- function(ngplotPostData, svgOutName){
    json_data <- toJSON(ngplotPostData, auto_unbox = TRUE) # 将ngplotPostData转换为JSON字符串
    response <- POST(
        url = "https://bioinforw.com/ldm/ngplotApiSim/",
        body = list(data = json_data),
        encode = "form"
    )
    if(status_code(response) == 200){
        response_json <- fromJSON(content(response, "text")) # 解析响应体为JSON
        if(response_json$code == 200){
            write(response_json$svg, file = paste0(svgOutName, ".svg"))  # 写入SVG文件
        }else{
            cat(response_json$msg, "\n")  # 打印错误信息
        }
    }else{
        cat("HTTP请求失败，状态码：", status_code(response), "\n") #打印状态码和错误信息
    }
}


##Test:

data <- list(
  data1 = "sample\tv\na\t10\n"
)

ngplotPostData <- list(
  account = "你的账号",
  ngplotApiKey = "你的ngplotApiKey",
  template = "6627b1edd0977e6439d4a203",  #画图模板编号
  data = data,
  arg = list(
    nameCol = "sample",
    valueCol = "v"
    # xxx = 'xxx',
    # xxx = 'xxx'

  )
)
NgplotApiFun(ngplotPostData, svgOutName)