How to insert the markers at two particular points
$begingroup$
I have a plot I wanted to put a marker at the transition (a point at which straight line starts to become little curve) and saturation (curve becomes straight line) points in the graph. I have manually identified the point. I wanted to put the star at transition point, and circle saturation point. And to name the graph as mode 1 with arrow.
ks1={0.01,1.,2.,4.,6.,8.,10.,25.,50.,100.,200.,300.,400.,500.,600.,800.,1000.,2000.,4000.,5000.,10000.,15000.,20000.,30000.,40000.,70000.,100000.,1.*10^6,1.*10^8,1.*10^12};
b1={1.8743,1.8784,1.88248,1.89049,1.89828,1.90587,1.91327,1.96335,2.03035,2.12536,2.23701,2.30098,2.34255,2.37175,2.3934,2.42334,2.44307,2.48725,2.51208,2.5173,2.52799,2.53164,2.53348,2.53533,2.53625,2.53745,2.53793,2.53894,2.53909,2.53543};
markermode1={{0.943,1.87835},{41086.3,2.53793}};
s1=ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, AbsolutePointSize[10], Point[markermode1]}]
plotting
$endgroup$
add a comment |
$begingroup$
I have a plot I wanted to put a marker at the transition (a point at which straight line starts to become little curve) and saturation (curve becomes straight line) points in the graph. I have manually identified the point. I wanted to put the star at transition point, and circle saturation point. And to name the graph as mode 1 with arrow.
ks1={0.01,1.,2.,4.,6.,8.,10.,25.,50.,100.,200.,300.,400.,500.,600.,800.,1000.,2000.,4000.,5000.,10000.,15000.,20000.,30000.,40000.,70000.,100000.,1.*10^6,1.*10^8,1.*10^12};
b1={1.8743,1.8784,1.88248,1.89049,1.89828,1.90587,1.91327,1.96335,2.03035,2.12536,2.23701,2.30098,2.34255,2.37175,2.3934,2.42334,2.44307,2.48725,2.51208,2.5173,2.52799,2.53164,2.53348,2.53533,2.53625,2.53745,2.53793,2.53894,2.53909,2.53543};
markermode1={{0.943,1.87835},{41086.3,2.53793}};
s1=ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, AbsolutePointSize[10], Point[markermode1]}]
plotting
$endgroup$
1
$begingroup$
do you get what you need if you usemarkermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?
$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48
add a comment |
$begingroup$
I have a plot I wanted to put a marker at the transition (a point at which straight line starts to become little curve) and saturation (curve becomes straight line) points in the graph. I have manually identified the point. I wanted to put the star at transition point, and circle saturation point. And to name the graph as mode 1 with arrow.
ks1={0.01,1.,2.,4.,6.,8.,10.,25.,50.,100.,200.,300.,400.,500.,600.,800.,1000.,2000.,4000.,5000.,10000.,15000.,20000.,30000.,40000.,70000.,100000.,1.*10^6,1.*10^8,1.*10^12};
b1={1.8743,1.8784,1.88248,1.89049,1.89828,1.90587,1.91327,1.96335,2.03035,2.12536,2.23701,2.30098,2.34255,2.37175,2.3934,2.42334,2.44307,2.48725,2.51208,2.5173,2.52799,2.53164,2.53348,2.53533,2.53625,2.53745,2.53793,2.53894,2.53909,2.53543};
markermode1={{0.943,1.87835},{41086.3,2.53793}};
s1=ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, AbsolutePointSize[10], Point[markermode1]}]
plotting
$endgroup$
I have a plot I wanted to put a marker at the transition (a point at which straight line starts to become little curve) and saturation (curve becomes straight line) points in the graph. I have manually identified the point. I wanted to put the star at transition point, and circle saturation point. And to name the graph as mode 1 with arrow.
ks1={0.01,1.,2.,4.,6.,8.,10.,25.,50.,100.,200.,300.,400.,500.,600.,800.,1000.,2000.,4000.,5000.,10000.,15000.,20000.,30000.,40000.,70000.,100000.,1.*10^6,1.*10^8,1.*10^12};
b1={1.8743,1.8784,1.88248,1.89049,1.89828,1.90587,1.91327,1.96335,2.03035,2.12536,2.23701,2.30098,2.34255,2.37175,2.3934,2.42334,2.44307,2.48725,2.51208,2.5173,2.52799,2.53164,2.53348,2.53533,2.53625,2.53745,2.53793,2.53894,2.53909,2.53543};
markermode1={{0.943,1.87835},{41086.3,2.53793}};
s1=ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, AbsolutePointSize[10], Point[markermode1]}]
plotting
plotting
asked Jan 13 at 5:10
acousticsacoustics
40819
40819
1
$begingroup$
do you get what you need if you usemarkermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?
$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48
add a comment |
1
$begingroup$
do you get what you need if you usemarkermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?
$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48
1
1
$begingroup$
do you get what you need if you use
markermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
do you get what you need if you use
markermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48
add a comment |
2 Answers
2
active
oldest
votes
$begingroup$
markermode1b = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}};
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotRangeClipping -> False,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, Text[Style["[SixPointedStar]", 36], #] & /@ markermode1b}]
Update: "to make the lower one filled with colour and the upper one unfilled with colour"
star = First[First[ImportString[ExportString[
Style["[SixPointedStar]", FontSize -> 16], "PDF"], "PDF", "TextMode" -> "Outlines"]]];
emptyhex = Graphics[{EdgeForm[{Thickness[.1], Red}], White, star}, ImageSize -> 20];
filledhex = Graphics[{EdgeForm, Red, star}, ImageSize -> 20];
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Inset[filledhex, markermode1b[[1]]],
Inset[emptyhex, markermode1[[2]]]}, PlotRangeClipping -> False]
Update 2: Alternatively, you can use Mesh
combined with a Dynamic
setting for PlotMarkers
:
hex = {filledhex, emptyhex};
ListLogLinearPlot[Transpose[{ks1, b1}],
Joined -> True, PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black, PlotRangeClipping -> False, PlotRange -> All,
Mesh -> {markermode1[[All, 1]]},
PlotMarkers -> Dynamic[{Last[hex = RotateRight[hex]], .1}]]
$endgroup$
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
add a comment |
$begingroup$
Creating a second ListLogLinearPlot
solves this problem without having to modify markermode1
:
s1 = ListLogLinearPlot[
Transpose[{ks1, b1}],
Joined -> True,
PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black
];
s2 = ListLogLinearPlot[
markermode1,
PlotMarkers -> Text[Style["[SixPointedStar]", 36]],
PlotStyle -> Red
];
Show[s1, s2]
We can also put these together like this:
s1 = ListLogLinearPlot[
{Transpose[{ks1, b1}], markermode1},
Joined -> {True, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red},
PlotMarkers -> {{Graphics, 0}, {Text[Style["[SixPointedStar]", 36]], 1}},
AxesStyle -> Black
]
We can accommodate the filled and unfilled marker types by making one data series for each type. I used the nice markers that kglr created in his answer:
data = Transpose[{ks1, b1}];
filledMarkers = {{0.943, 1.87835}};
unfilledMarkers = {{41086.3, 2.53793}};
s1 = ListLogLinearPlot[
{data, filledMarkers, unfilledMarkers},
Joined -> {True, False, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red, Red},
PlotMarkers -> {
{Graphics, 0},
{filledhex, 0.1},
{emptyhex, 0.1}
},
AxesStyle -> Black
]
$endgroup$
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f189387%2fhow-to-insert-the-markers-at-two-particular-points%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
markermode1b = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}};
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotRangeClipping -> False,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, Text[Style["[SixPointedStar]", 36], #] & /@ markermode1b}]
Update: "to make the lower one filled with colour and the upper one unfilled with colour"
star = First[First[ImportString[ExportString[
Style["[SixPointedStar]", FontSize -> 16], "PDF"], "PDF", "TextMode" -> "Outlines"]]];
emptyhex = Graphics[{EdgeForm[{Thickness[.1], Red}], White, star}, ImageSize -> 20];
filledhex = Graphics[{EdgeForm, Red, star}, ImageSize -> 20];
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Inset[filledhex, markermode1b[[1]]],
Inset[emptyhex, markermode1[[2]]]}, PlotRangeClipping -> False]
Update 2: Alternatively, you can use Mesh
combined with a Dynamic
setting for PlotMarkers
:
hex = {filledhex, emptyhex};
ListLogLinearPlot[Transpose[{ks1, b1}],
Joined -> True, PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black, PlotRangeClipping -> False, PlotRange -> All,
Mesh -> {markermode1[[All, 1]]},
PlotMarkers -> Dynamic[{Last[hex = RotateRight[hex]], .1}]]
$endgroup$
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
add a comment |
$begingroup$
markermode1b = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}};
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotRangeClipping -> False,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, Text[Style["[SixPointedStar]", 36], #] & /@ markermode1b}]
Update: "to make the lower one filled with colour and the upper one unfilled with colour"
star = First[First[ImportString[ExportString[
Style["[SixPointedStar]", FontSize -> 16], "PDF"], "PDF", "TextMode" -> "Outlines"]]];
emptyhex = Graphics[{EdgeForm[{Thickness[.1], Red}], White, star}, ImageSize -> 20];
filledhex = Graphics[{EdgeForm, Red, star}, ImageSize -> 20];
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Inset[filledhex, markermode1b[[1]]],
Inset[emptyhex, markermode1[[2]]]}, PlotRangeClipping -> False]
Update 2: Alternatively, you can use Mesh
combined with a Dynamic
setting for PlotMarkers
:
hex = {filledhex, emptyhex};
ListLogLinearPlot[Transpose[{ks1, b1}],
Joined -> True, PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black, PlotRangeClipping -> False, PlotRange -> All,
Mesh -> {markermode1[[All, 1]]},
PlotMarkers -> Dynamic[{Last[hex = RotateRight[hex]], .1}]]
$endgroup$
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
add a comment |
$begingroup$
markermode1b = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}};
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotRangeClipping -> False,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, Text[Style["[SixPointedStar]", 36], #] & /@ markermode1b}]
Update: "to make the lower one filled with colour and the upper one unfilled with colour"
star = First[First[ImportString[ExportString[
Style["[SixPointedStar]", FontSize -> 16], "PDF"], "PDF", "TextMode" -> "Outlines"]]];
emptyhex = Graphics[{EdgeForm[{Thickness[.1], Red}], White, star}, ImageSize -> 20];
filledhex = Graphics[{EdgeForm, Red, star}, ImageSize -> 20];
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Inset[filledhex, markermode1b[[1]]],
Inset[emptyhex, markermode1[[2]]]}, PlotRangeClipping -> False]
Update 2: Alternatively, you can use Mesh
combined with a Dynamic
setting for PlotMarkers
:
hex = {filledhex, emptyhex};
ListLogLinearPlot[Transpose[{ks1, b1}],
Joined -> True, PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black, PlotRangeClipping -> False, PlotRange -> All,
Mesh -> {markermode1[[All, 1]]},
PlotMarkers -> Dynamic[{Last[hex = RotateRight[hex]], .1}]]
$endgroup$
markermode1b = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}};
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotRangeClipping -> False,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Red, Text[Style["[SixPointedStar]", 36], #] & /@ markermode1b}]
Update: "to make the lower one filled with colour and the upper one unfilled with colour"
star = First[First[ImportString[ExportString[
Style["[SixPointedStar]", FontSize -> 16], "PDF"], "PDF", "TextMode" -> "Outlines"]]];
emptyhex = Graphics[{EdgeForm[{Thickness[.1], Red}], White, star}, ImageSize -> 20];
filledhex = Graphics[{EdgeForm, Red, star}, ImageSize -> 20];
ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True,
PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black,
Epilog -> {Inset[filledhex, markermode1b[[1]]],
Inset[emptyhex, markermode1[[2]]]}, PlotRangeClipping -> False]
Update 2: Alternatively, you can use Mesh
combined with a Dynamic
setting for PlotMarkers
:
hex = {filledhex, emptyhex};
ListLogLinearPlot[Transpose[{ks1, b1}],
Joined -> True, PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black, PlotRangeClipping -> False, PlotRange -> All,
Mesh -> {markermode1[[All, 1]]},
PlotMarkers -> Dynamic[{Last[hex = RotateRight[hex]], .1}]]
edited 2 days ago
answered Jan 13 at 5:55
kglrkglr
179k9198410
179k9198410
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
add a comment |
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
How to make the lower one filled with colour and the upper one unfilled with colour?
$endgroup$
– acoustics
Jan 13 at 5:59
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
$begingroup$
@acoustics, please see the update.
$endgroup$
– kglr
2 days ago
add a comment |
$begingroup$
Creating a second ListLogLinearPlot
solves this problem without having to modify markermode1
:
s1 = ListLogLinearPlot[
Transpose[{ks1, b1}],
Joined -> True,
PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black
];
s2 = ListLogLinearPlot[
markermode1,
PlotMarkers -> Text[Style["[SixPointedStar]", 36]],
PlotStyle -> Red
];
Show[s1, s2]
We can also put these together like this:
s1 = ListLogLinearPlot[
{Transpose[{ks1, b1}], markermode1},
Joined -> {True, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red},
PlotMarkers -> {{Graphics, 0}, {Text[Style["[SixPointedStar]", 36]], 1}},
AxesStyle -> Black
]
We can accommodate the filled and unfilled marker types by making one data series for each type. I used the nice markers that kglr created in his answer:
data = Transpose[{ks1, b1}];
filledMarkers = {{0.943, 1.87835}};
unfilledMarkers = {{41086.3, 2.53793}};
s1 = ListLogLinearPlot[
{data, filledMarkers, unfilledMarkers},
Joined -> {True, False, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red, Red},
PlotMarkers -> {
{Graphics, 0},
{filledhex, 0.1},
{emptyhex, 0.1}
},
AxesStyle -> Black
]
$endgroup$
add a comment |
$begingroup$
Creating a second ListLogLinearPlot
solves this problem without having to modify markermode1
:
s1 = ListLogLinearPlot[
Transpose[{ks1, b1}],
Joined -> True,
PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black
];
s2 = ListLogLinearPlot[
markermode1,
PlotMarkers -> Text[Style["[SixPointedStar]", 36]],
PlotStyle -> Red
];
Show[s1, s2]
We can also put these together like this:
s1 = ListLogLinearPlot[
{Transpose[{ks1, b1}], markermode1},
Joined -> {True, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red},
PlotMarkers -> {{Graphics, 0}, {Text[Style["[SixPointedStar]", 36]], 1}},
AxesStyle -> Black
]
We can accommodate the filled and unfilled marker types by making one data series for each type. I used the nice markers that kglr created in his answer:
data = Transpose[{ks1, b1}];
filledMarkers = {{0.943, 1.87835}};
unfilledMarkers = {{41086.3, 2.53793}};
s1 = ListLogLinearPlot[
{data, filledMarkers, unfilledMarkers},
Joined -> {True, False, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red, Red},
PlotMarkers -> {
{Graphics, 0},
{filledhex, 0.1},
{emptyhex, 0.1}
},
AxesStyle -> Black
]
$endgroup$
add a comment |
$begingroup$
Creating a second ListLogLinearPlot
solves this problem without having to modify markermode1
:
s1 = ListLogLinearPlot[
Transpose[{ks1, b1}],
Joined -> True,
PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black
];
s2 = ListLogLinearPlot[
markermode1,
PlotMarkers -> Text[Style["[SixPointedStar]", 36]],
PlotStyle -> Red
];
Show[s1, s2]
We can also put these together like this:
s1 = ListLogLinearPlot[
{Transpose[{ks1, b1}], markermode1},
Joined -> {True, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red},
PlotMarkers -> {{Graphics, 0}, {Text[Style["[SixPointedStar]", 36]], 1}},
AxesStyle -> Black
]
We can accommodate the filled and unfilled marker types by making one data series for each type. I used the nice markers that kglr created in his answer:
data = Transpose[{ks1, b1}];
filledMarkers = {{0.943, 1.87835}};
unfilledMarkers = {{41086.3, 2.53793}};
s1 = ListLogLinearPlot[
{data, filledMarkers, unfilledMarkers},
Joined -> {True, False, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red, Red},
PlotMarkers -> {
{Graphics, 0},
{filledhex, 0.1},
{emptyhex, 0.1}
},
AxesStyle -> Black
]
$endgroup$
Creating a second ListLogLinearPlot
solves this problem without having to modify markermode1
:
s1 = ListLogLinearPlot[
Transpose[{ks1, b1}],
Joined -> True,
PlotStyle -> {Black, Thickness[0.01]},
AxesStyle -> Black
];
s2 = ListLogLinearPlot[
markermode1,
PlotMarkers -> Text[Style["[SixPointedStar]", 36]],
PlotStyle -> Red
];
Show[s1, s2]
We can also put these together like this:
s1 = ListLogLinearPlot[
{Transpose[{ks1, b1}], markermode1},
Joined -> {True, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red},
PlotMarkers -> {{Graphics, 0}, {Text[Style["[SixPointedStar]", 36]], 1}},
AxesStyle -> Black
]
We can accommodate the filled and unfilled marker types by making one data series for each type. I used the nice markers that kglr created in his answer:
data = Transpose[{ks1, b1}];
filledMarkers = {{0.943, 1.87835}};
unfilledMarkers = {{41086.3, 2.53793}};
s1 = ListLogLinearPlot[
{data, filledMarkers, unfilledMarkers},
Joined -> {True, False, False},
PlotStyle -> {{Black, Thickness[0.01]}, Red, Red},
PlotMarkers -> {
{Graphics, 0},
{filledhex, 0.1},
{emptyhex, 0.1}
},
AxesStyle -> Black
]
edited 2 days ago
answered 2 days ago
C. E.C. E.
50.2k397202
50.2k397202
add a comment |
add a comment |
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f189387%2fhow-to-insert-the-markers-at-two-particular-points%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
1
$begingroup$
do you get what you need if you use
markermode1 = {{Log@0.943, 1.87835}, {Log@41086.3, 2.53793}}
?$endgroup$
– kglr
Jan 13 at 5:43
$begingroup$
I wanted my marker star symbol I used Style["[SixPointedStar]", 60]. but getting error
$endgroup$
– acoustics
Jan 13 at 5:48