Julia でggplot2 を使ってグラフを描画したいのですが、エラーが出てしまってできません。
解決策がわからないため、どなたか助けていただけないでしょうか。
データは以下のようになっています。
head(df) Out[55]: tpr fpr line Any Any String 1 0.0 0.000712758 honban 2 0.0 0.00142552 honban 3 0.0 0.00213828 honban 4 0.0 0.00285103 honban 5 0.0 0.00356379 honban 6 0.0 0.00427655 honban
以下のように実行すると、
julia
1using RCall 2@rlibrary ggplot2 3@rlibrary ggsci 4@rlibrary reshape2 5ggplot(df, aes(x=:fpr, y=:tpr))+ geom_line()
このようなエラーが出てしまいます。
error
1REvalError: order(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, でエラー: 2 型 'list'('listgreater' における)は未実装です 3 4Stacktrace: 5 [1] macro expansion at ./logging.jl:307 [inlined] 6 [2] #handle_eval_stderr#41(::Bool, ::Function) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/io.jl:110 7 [3] #handle_eval_stderr at ./none:0 [inlined] 8 [4] rprint(::IOContext{Base.GenericIOBuffer{Array{UInt8,1}}}, ::Ptr{VecSxp}) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/io.jl:33 9 [5] rprint at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/io.jl:43 [inlined] 10 [6] show at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/io.jl:49 [inlined] 11 [7] show at ./sysimg.jl:194 [inlined] 12 [8] limitstringmime(::MIME{Symbol("text/plain")}, ::RObject{VecSxp}) at /Users/shotaro/.julia/packages/IJulia/0cLgR/src/inline.jl:36 13 [9] display_mimestring(::MIME{Symbol("text/plain")}, ::RObject{VecSxp}) at /Users/shotaro/.julia/packages/IJulia/0cLgR/src/execute_request.jl:73 14 [10] display_dict(::RObject{VecSxp}) at /Users/shotaro/.julia/packages/IJulia/0cLgR/src/execute_request.jl:101 15 [11] #invokelatest#1 at ./essentials.jl:697 [inlined] 16 [12] invokelatest at ./essentials.jl:696 [inlined] 17 [13] execute_request(::ZMQ.Socket, ::IJulia.Msg) at /Users/shotaro/.julia/packages/IJulia/0cLgR/src/execute_request.jl:256 18 [14] #invokelatest#1 at ./essentials.jl:697 [inlined] 19 [15] invokelatest at ./essentials.jl:696 [inlined] 20 [16] eventloop(::ZMQ.Socket) at /Users/shotaro/.julia/packages/IJulia/0cLgR/src/eventloop.jl:8 21 [17] (::getfield(IJulia, Symbol("##12#15")))() at ./task.jl:259
ちなみに以下のようにしてもダメでした。
julia
1R""" 2g <- ggplot($roc, aes(x = FalsePositiveRate, y = TruePositiveRate)) 3g <- g + geom_line() 4g <- g + scale_color_nejm() 5plot(g) 6"""
error
1REvalError: order(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, でエラー: 2 型 'list'('listgreater' における)は未実装です 3 4Stacktrace: 5 [1] macro expansion at ./logging.jl:307 [inlined] 6 [2] #handle_eval_stderr#41(::Bool, ::Function) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/io.jl:110 7 [3] #handle_eval_stderr at ./none:0 [inlined] 8 [4] reval_p(::Ptr{LangSxp}, ::Ptr{EnvSxp}) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/eval.jl:99 9 [5] reval_p(::Ptr{RCall.ExprSxp}, ::Ptr{EnvSxp}) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/eval.jl:115 10 [6] reval(::String, ::RObject{EnvSxp}) at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/eval.jl:132 11 [7] top-level scope at /Users/shotaro/.julia/packages/RCall/Q4n8R/src/macros.jl:67 12 [8] top-level scope at In[58]:1
これは実行できるのですが...
R""" d=data.frame(x=1:20,y=cos(1:20),z=c(rep("red",10),rep("blue",10))) g <- ggplot(d, aes(x = x, y = y, color = z)) + geom_line() """
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。