Changing the font size in a DAG in R - r

I'm building a Bayesian network (DAG) in R, it has several nodes stemming from one parent, so it has a lot of nodes.
I can't seem to figure out how to increase the font size of the node labels (won't let me post image).
To plot it, I've just done plot(dag_pigment).
Where the input is this:
dag_pigment<-dag(c("pigment","1800407"),c("pigment","12203592"),c("pigment","12896399"),c("pigment","3829241"),c("3829241","12913832"), c("pigment","1408799"), c("1408799", "12913832"),c("pigment","683"),c("pigment","10777129"),c("pigment", "28777"),c("pigment", "16891982"),c("pigment", "6119471"), c("pigment", "1426654"),c("pigment", "1800414"),c("pigment", "4959270"),c("pigment", "2378249"),c("pigment", "12821256"),c("pigment", "1805007"))
I've tried using cex within the plot function, and all the other subcategories (cex.main, cex.sub,etc.)
I've tried using ps, and I've tried using par like par(ps=20,cex=1,cex.main=1).
Are there other functions I should be trying? A different plot function?
Appreciate any help! I'm still pretty new at figuring these things out.

Ok, I actually figured this out after several hours, so, I'm posting the answer to be helpful for anyone else who might be looking.
You have to use the attrs function:
dag_pigment.cust<-plot(dag_pigment,attrs=list(node=list(fontsize=60)))
and this increased the font.

Related

No Cone of Influence Displayed Using WaveletComp in R

I am using the WaveletComp package in R. I first run analyze.coherency to get the cross-wavelet transform and store the result in my.wc.
Next, I want to get a figure of the cross-wavelet power levels and apply wc.image to the previously stored results. The figure is plotted but missing the cone of influence. I did not change the default setting (which is to display the cone of influence). Even explicitly providing the argument for inclusion of the cone of influence does not work.
Did anyone experience similar issues and is there any advice how to fix this issue? Any ideas would be greatly appreciated.
Many thanks, I figured out the issue: The cone of influence is not displayed in the plot window. Only saving the graphic as svg or pdf file will show the cone of influence. All other file extensions won't do the job.

How to make interactive Bokeh Histograms?

I have been working with bokeh for a little while now and when showing people data they really seem to love being able to interact with the data. I've managed to acheive this via bokeh serve, but only for scatter diagrams. Can this be done with histograms?
The problem, I think, is that as a high-level chart, Histogram() won't take a ColumnDataSource as its argument, which seems to be what the interactivity is based around. I'm not very clued up about this, so any help or comment on workarounds is appreciated.
I fairly new to Bokeh as well - so there may be a better way, but my quick work around was to create my histogram with multiple rectangle glyphs. The only catch is that rect uses the y value passed to it as the center of the glyph, rather than its absolute height.
Something like:
plot.rect(x, y=bar_height/2, width = 1, height = bar_height, source= source_data)
Works for me.

Label individual points in Sage plot

This seems like a straightforward problem, yet I can't find a solution. In Sage, I've got about 30 sorted points for a scatter_plot, and I want to add the order position as a label. I know this is easy if I were working with a graph object, since I could use the vertex_labels option in plot. Is there a simple fix to get this to work for a scatter_plot, or would I need to do something like make the points vertices and keep track of the exact location of each point
Currently, you may have to use matplotlib directly or mess around with that method inside of Sage to get this. See here or here for some related questions.
I've opened Trac 20583 for this.

Building a heatmap in R with more information

I made a heatmap on R and most of it is one colour. I have two columns of data which showed up as various colours, but the rest of it is red.
Does anyone know how to increase the "resolution" of this? I don't mean anything about how to make the image more clear (which is why I think I'm having trouble searching for info on it). I mean, how do I make my heatmap more meaningful and not all mostly one colour.
Thanks and sorry if this has been answered somewhere else. I think I don't know the key term I need to search properly.
Edit:
Here is the code I used so far (heatdata is my matrix):
heatmap <- heatmap(heatdata,Rowv=NA,Colv=NA,col=cm.colors(256),scale="row")

scaling Venn diagram in R

I am trying to plot the Venn Diagram of intersection of 3 sets with the following function:
library(VennDiagram)
draw.triple.venn(10,5,4,2,3,1,1,ind=TRUE,scaled=TRUE).
In the Quartz window I receive 3 identical circles (all of the same size). Where did the scaling go? After several hours of trying, I am wondering if it is a bug or if maybe the previous settings of my plotting area are not allowing it ( i closed and reopened the Quartz window several times). The output value is:
(polygon[GRID.polygon.1498], polygon[GRID.polygon.1499], polygon[GRID.polygon.1500], polygon[GRID.polygon.1501], polygon[GRID.polygon.1502], polygon[GRID.polygon.1503], text[GRID.text.1504], text[GRID.text.1505], text[GRID.text.1506], text[GRID.text.1507], text[GRID.text.1508], text[GRID.text.1509], text[GRID.text.1510], text[GRID.text.1511], text[GRID.text.1512])
Any help or tip would be appreciated. All the examples I see online are depicted already scaled.
According to the manual, scaling only happens for some configurations. One example would be
draw.triple.venn(1,2,3,0,0,0,0)
On the other hand, looking at the source code of that function, there appears to be no relevant use of that parameter at all. And indeed, passing scale=FALSE to the above command still results in scaled circles.
So it looks like with the current source code, you have no control over scaling, one way or the other.
The scale parameter is being ignored in many cases.
Here is another example that is also not plotted to scale
venn.plot <- draw.triple.venn(1883,598,2151,218,221,611,95, c("AL", "RL", "R"),scale=TRUE)
I used this .jar instead:
http://www.cs.kent.ac.uk/people/staff/pjr/EulerVennCircles/EulerVennApplet.html

Resources