TransWikia.com

Plot Graphics Copy/Paste Error

Mathematica Asked by OpticsMan on May 5, 2021

During copying/pasting of the Graphics output from ListLinePlot and ListPlot, I regularly but inconsistently have a pasted image that has issue with the image bounding. For example,
Bad Bounding

This occurs with both direct copying as well as with "Copy AS Bitmap" when the copied Graphics is pasted OUTSIDE of Mathematica. Pasting within Mathematica the bounding is as expected.

Re-evaluating SetOptions[ListLinePlot, …] with typical arguments does not correct the issue. Only closing and re-opening the Kernel corrects the issue. Closing and re-opening the Notebook does not correct the issue.

Nothing seems obvious bad in Reviewing the FullForm of the Graphics object. Excluding the long list of data, the FullFrom output is below.

List[List[], List[]]], Rule[AspectRatio, Power[GoldenRatio, -1]], 
 Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], 
 Rule[AxesOrigin, List[0, 22.`]], 
 Rule[BaseStyle, 
  List[Rule[FontFamily, "Gill Sans MT"], Rule[FontSize, 14]]], 
 Rule[DisplayFunction, Identity], 
 Rule[Epilog, 
  List[List[Arrow[List[List[15, 24], List[14.5`, 22.6`]]], 
    Inset["7AM", List[15, 24.2`]]]]], 
 Rule[Frame, List[List[True, True], List[True, True]]], 
 Rule[FrameLabel, 
  List[List["Temperature (C)", None], List["Hours into Test", None]]],
  Rule[FrameTicks, 
  List[List[Automatic, Automatic], List[Automatic, Automatic]]], 
 Rule[GridLines, List[Automatic, Automatic]], 
 Rule[GridLinesStyle, Directive[GrayLevel[0.5`, 0.4`]]], 
 Rule[ImageSize, 500], Rule[LabelStyle, Directive[Bold]], 
 Rule[Method, 
  List[Rule["OptimizePlotMarkers", True], 
   Rule["OptimizePlotMarkers", True], 
   Rule["CoordinatesToolOptions", 
    List[Rule["DisplayFunction", 
      Function[
       List[Identity[Part[Slot[1], 1]], Identity[Part[Slot[1], 2]]]]],
      Rule["CopiedValueFunction", 
      Function[
       List[Identity[Part[Slot[1], 1]], 
        Identity[Part[Slot[1], 2]]]]]]]]], 
 Rule[PlotRange, List[List[0, 16.6`], List[22, 26]]], 
 Rule[PlotRangeClipping, True], 
 Rule[PlotRangePadding, 
  List[List[Scaled[0.02`], Scaled[0.02`]], List[0, 0]]], 
 Rule[Ticks, List[Automatic, Automatic]]]

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP